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New Subscription Rates 


For the first time since January of 1984, we are going to have to 
increase our subscription rates. The Post Office is raising the 
postage again, for the third time since then, and we have to 
respond. Of course postage is not the only expense that has 
increased, just the most recent, and most noticeable. Here are 
the old and new rates for a year's subscription: 


NewSletter Only, 12 issues: Current New 
Bulk Mail (USA only) ......«.« « « « $18 --- 
First Class Mail (USA, Canada, Mexico) . $21 $24 
All Other Countries .....-...-.- $32 $36 


Newsletter plus the Monthly Disk, 12 issues: 
USA, Canada, Me xico e e e e e t e ® e e $64 $64 
All Other Countr ies e e e e e e e e e e $87 $90 


You will notice that the Bulk Mail option is being phased out, as 
I am planning to mail by First Class to all USA subscribers. The 
reliability of Bulk Mail has been entirely too erratic, and 
increasingly so. 


You will also notice that the price of a subscription including 
disk, delivered in the USA, Canada, or Mexico, has not increased 
at all. Maybe now is the time to upgrade, and save yourself a 
lot of typing? 


The new prices go into effect for new subscriptions as of March 
15, 1988. Renewals at the old prices (but no more bulk mail) 
will continue to be accepted through the 4th of April. 


Another Peek Inside bd feta eda The Interpretive 
String Display Subroutine...Bob Sander-Cederlof 


At least twice in the last eight years I have published fancy 
message display subroutines. In the original Volume 1, Number 
1, way back in October, 1980, I gave a really nice 40-column 
version. That one was actually used in a slightly different 
form inside a system that we developed for the American Heart 
Association for teaching Cardio-Pulmonary Resuscitation (CPR). 


In the April 1987 issue I published an 80-column version for 
the //e and //c, which had similar but more powerful 
capabilities. 


Last month I started revealing some of the code from inside 
AppleWorks (version 1.3). I covered parameter passing and some 
string handling subroutines, plus block move. I also described 
and printed the subroutine which polls the keyboard, so that 
you can type before being asked. POLL.KEYBOARD is called from 
all over everywhere, just to be sure no characters are lost. I 
mention that, because there is a call to it from the code I am 
unveiling this month. In the listing which follows, I have put 
a dummy POLL.KEYBOARD subroutine which simply does an RTS. In 
the real AppleWorks code, DISPLAY.STRING calls the real 

POLL .KEYBOARD. 


As I mentioned last month, I am NOT showing in these pages the 
exact code you would find inside AppleWorks. Since my purpose 
is not to document AppleWorks, but rather to cull out generally 
useful code which we can adapt and use, I have rearranged and 
modified a little. My versions are, in general, shorter and 
faster. Maybe whoever is currently maintaining AppleWorks at 
Claris will notice and use these improvements. 


In case you ARE interested in documenting AppleWorks, or just 
want to see what I changed, I have included comment lines with 
each segment of code which show what the corresponding address 
waS inside AppleWorks 1.3. AS was true last month, all the 
code shown here is found in the main segment called 
APLWORKS.SYSTEM, which begins at $1000 once it is up and 
running. 


I will begin with a general description of features. 
DISPLAY.STRING began at $14Dl, and there are numerous calls to 
it in the code. There is also a JMP vector to it in the JMP 
table which begins at $1000; if you find any JSR $1015 
instructions in any of the other segments, they are calling 
this DISPLAY.STRING subroutine. Unlike all of the subroutines 
I discussed last month, this subroutine does not expect to find 
parameters following the JSR which called it. Instead, it 
expects the length of the string to be in the A-register, and 
the address of the string to be in locations $80,81. (There is 
another subroutine which uses the parameter-passSing protocol to 
display a string which starts with a length byte; it simply 
sets up $80, $81, and the A-register and calls DISPLAY.STRING. 
You can find it at $2093, with a JMP vector at $1087.) 
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S-C Macro Assembler Version 2.0 a ee » « « DOS $100, ProDOS $100, both for $120 
Version 2.0 DOS Upgrade Kit for 1.0/1. /1. 2 OWNErS 5 4% “s> -eh ow ee ee Swe we wm. Ge BVO 
ProDOS Upgrade Kit for Version 2.0 DOS owners . . . . «© «© © © © «© «© «© «© « « $30 
Source Code of S-C Macro 2.0 (DOS or ProDOS) . .... . - « each, additional $100 
S-C DisAssembler (ProDOS only) . . . . « « « without source code $30, with source $50 
RAK-Ware DISASM (DOS only) . . . . .« « « « without source code $30, with source $50 


ProVIEW (ProDOS only) . . . : Gen EE te el ee) ae ae Fe oe? 46 2820 
Full Screen Editor for S-C Macro (with complete Bounce code). . . P oe ew $Y 
S-C Cross Reference Utility . . . . . .« « . without source sede $20, with source $50 
S-C Word Processor (with complete source code) ‘oa a ee ee a a er ee oe ee er oe) 
DP18 and DPFP, including complete source and object code a ; ‘ ‘ - $50 
ES-CAPE (Extended S-C Applesoft Program Editor), including Version 2. 0 with Source Code - $50 
ES-CAPE Version 2.0 and Source Code Update (for Registered Owners) . . . . - $30 


Bag of Tricks 2 (Quality Software) ei 2 fa de Oa! Wa ae ee, aa ee yd "($49.95). $45 
S-C Documentor (complete commented source code of eeeerer ROMS) . .«. 6 «© «© «© « « $50 
Cross Assemblers for owners of S-C Macro Assembler. - « « $32.50 to $50 each 
(Available: 6800/1/2, 6301, 6805, 6809, 68000, 2-80, 2-8, 8048, 8051, "8085, 
1802/4/5, PDP-11, G G11650/70, Mitsubishi 50740, others ) 
Beagle Bros. Applesoft Compiler (ProDOS only) . . . . « « « « « «© -« ($74.95) $65 
Copy II Plus (Central Point Software) . . . «© «© « «© « « - » ($39.95) $30 
AAL Quarterly Disks Sea SO> fas) ota CRC Ten ek en lee SRE Aes Eh oe. Sa ei6h $15, or any four for $45 


(All source code is formatted for S-C Macro Assembler. Other assemblers 
require some effort to convert file type and edit directives. ) 


Vinyl disk pages, 6"x8.5", hold two disks each . . . .« « « : 10 for $6 
Diskette Mailing Protectors (hold 1 or 2 disks) . . ... .- 40 cents each 

(Cardboard folders designed to fit 6*x9" she hay ) or $25 per 100 
Envelopes for Diskette Mailers . . . . . e« « » ae ae 6 cents each 
Sider 20 Meg Hard Disk, includes controller & software . ($695) $550 
Sider 40 Meg Hard Disk, includes controller & software . ($995) $860 
Minuteman 250 Uninterruptible Power Supply . ($359) $320 
Minuteman 300 Uninterruptible Power Supply . ($549) $490 
65802 Microprocessor, 4 MHz (Western Design Center) . : - $25 
quikLoader EPROM System (SCRG) . . . . . «6 « -« ($179). $170 
PROmGRAMER (SCRG) . . . © «© © © «© © © « « ($149. 50) $140 


"Exploring the Apple IIgs" . . . . . « « « « « « « Gary B. Little ($22.95) $21 
"Apple IIgs Technical Reference" . . «© « « « « Michael Fischer ($19.95) $19 
"65816/65802 Assembly Language Prograaing®: a . Michael Fischer ($21.95) $20 
"Programming the 65816" . . . . .« .« «© «© « -« David Eyes & Ron Lichty ($22.95) $21 
"Apple //e Reference Manual". . . . . « «© « « « « « Apple Computer ($24.95) $23 
"Apple //c Reference Manual". . . © © « « « « « « Apple Computer ($24.95) $23 
"ProDOS-8 Technical Reference Manual". » 6 «© «© « « « «+ Apple Computer ($29.95) $27 
"ProDOS-16 Technical Reference Manual® . . . . . +. +. +. Apple Computer ($29.95) $27 
"Apple IIgs Firmware Reference". . . . . »« « « « «+ « Apple Computer ($24.95) $23 
“Apple IIgs Hardware Reference". . . . . « « « « « «+ Apple Computer ($24.95) $23 
"ProDOS Inside and Out" . . . . +. +. +« +. ++ Dennis Doms & Tom Weishaar ($16.95) $16 
"DOStalk Scrapbook". . . . . .« . «© .« « » Tom Weishaar & Bert Kersey ($14.95) $14 
"Beneath Apple ProDOS". . . . . . +. . +. +. Don Worth & Pieter Lechner ($19.95) $18 
"Beneath Apple DOS". . . . . . . © « « «+ Don Worth & Pieter Lechner ($19.95) $18 
"Inside the Apple //c™. . . . . « « « « «© « « « »« Gary B. Little ($19.95) $18 
"Inside the Apple //e". . . 8 eh leh el hl eC eC CSC «Gary Be. Little ($19.95) $18 
"Understanding the Apple /Te" eel ehh ele lll Cet tC e:sC dm Sather = ($24.95) $23 
"Understanding the Apple II". . . . . . . .« «© « « « » Jim Sather ($22.95) $21 
"Apple II+/Ile Troubleshooting & Repair Guide". . . . . - « Brenner ($19.95) $18 
"Assembly Language for Applesoft Programmers". . . . . . Finley & Myers ($18.95) $18 
"Now That You Know Apple Assembly Language". . . . . . . Jules Gilder ($19.95) $18 
"Enhancing Your Apple II, vol. 1". . . . «©. « « « « « Don Lancaster ($15.95) $15 
"Enhancing Your Apple II, vol. 2%. . . . «. « « « ++ +« Don Lancaster ($17.95) $17 
"Assembly Cookbook for the Apple II/IIe". . . . . . +. +. Don Lancaster ($21.95) $20 
"Microcomputer Graphics". . . . . .« « « «© « « « « «+ Roy E.Myers ($14.95) $14 
"Assembly Lines -- the Book™. . . . . . « « « « « « Roger Wagner ($19.95) $12 


# These items add $2 for first item, $.75 for each additional item for US shipping. 
+ Inquire for shipping cost. S-C Software Corporation 


Customers outside USA inquire for postage needed. 2331 Gus Thomasson #125 
Texas residents please add 8% sales tax to all orders. DALLAS. TX 75228 
<< Master Card, VISA, Discover and American Express >> Phone 28702452050 
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DISPLAY.STRING does not uSe any Apple firmware at all. The 
display techniques used here work faster than the ftirmware, 
because they are dedicated to 80-columns and do not have to 
retain any compatibility with older machines. If you remember 
that the original Apple //e firmware scrolled the 80-column 
screen with a slow zigzag motion, you can see why Rupert 
Lissner decided to code his own. 


The characters within the string to be displayed consist of 
control codes and displayable characters. Displayable 
characters include the full upper- and lower-case alphabet, 
numbers, and punctuation signs; all of these can be displayed 
in both normal and inverse mode. All 32 “mouse-text" 
characters can also be displayed, although the only one I have 
noticed in quickly scanning through the AppleWorks messages is 
the open-apple. 


Inverse and normal mode is controlled by a flag byte, which I 
have called INVERSE.FLAG in my code. It is located at $14D0 in 
AppleWorks. If that byte contains $00, characters will display 
in inverse; if $80, normal. A pair of control codes lets you 
Switch INVERSE.FLAG back and forth from within a string, or you 
can directly set it between calls to DISPLAY.STRING. 


The following table shows the hex values for the various 
Character groups as interpreted by DISPLAY.STRING: 


0OO-1F Control Codes 
20-7F 96 ASCII Characters 
80-9F 32 Mouse Text Characters 


The codes 20-7F display in either normal or inverse, depending 
On INVERSE.FLAG, aS deScribed above. Codes CO-DF duplicate 
80-9F, displaying the mouse text characters; codes AOQ-BF and 
EO-FF both display the 32 lower-case characters in inverse 
mode. 


There are a couple of un-features in DISPLAY.STRING. There is 
a JMP $1815 instruction located at $1815 inside AppleWorks 1.3. 
This, of course, hangs up the Apple. The only way out is by 
hitting RESET. DISPLAY.STRING goes to this HANG.UP code under 
some circumstances. Since it is a deadly trap, I assume the 
author of AppleWorks used to have some debugging code there. 

It gets called from all over, when errors occur that are 
programming bugs. There is even a JMP vector to it in the JMP 
table, at $101B! I have left the jumps and branches to HANG.UP 
in my version, but you might want to modify them to do 
something reasonable if you are going to use DISPLAY.STRING 
yourself. 


The other un-feature is what happens if you try to print past 
the right edge of the text window. You might think it would 
automatically wrap to the next line, like the standard Apple 
firmware does; no, it just piles up the characters at the end 
of the line like old manual typewriters used to do. Possibly 
you might consider a third un-feature to be the limitation of 
255 characters in a string, but this is easy enouyh to work 
around. My demonstration program, included at the end of the 
following listing, Shows one way. 
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RamKeeper 


For the “Instant On” Apple IIGs. 


Permanent Storage with an | from your computer, plug your IIGs e Reduces power strain to your internal 
“Electronic Hard Disk” memory card into RamKeeper, plug IGS power supply 

Now when vou tum on vour HGS vour | RamKeeper into the Gs memory slot If | e Contains back-up status LE.D.'s 
favorite program can appear on screen you have another IIGs memory card, an | © Can support up to two IGS memory 


in just a few seconds! With RamKeeper, | additional card socket on RamKeeper cards simultaneously 
vour HGS memory card will retain stored | will accommodate your second card. | ¢ Supports both 256K installed memory 
| programs and stored data while your Thats all there is to it chip boards like Gs-RAM and the Apple 
| HGS is tumed off RamKeeper allows vou IGS Memory Expansion Card as well 
to divide your [IGS memory into part Reliability from the Most as 1 MEG installed memory chip 
“electronic hard disk” and part RAM for | Experienced boards like Gs-RAM Plus 
your programs workspace—in almost Applied Engineering has the most e 5-vear hassle-free warranty 
| any way you want and at anytime you experience in the industry with battery- e 15 day money back guarantee 


Want GS-RAM, Gs-RAM Plus, Apple IIGs backed memory for the Apple so you are | ¢ Proudly made in the USA 
| memory card and most other [IGS assured of the most reliable memory e RamKeeper comes complete with 
memory cards are compatible with back-up system available. And in the battery, software and documentation 


word of battery-backed memory, reliabil- 
ity is evervthing! That's why hole Only $179.00! 
Engineering uses the more dependable | (GS-RKAM card shown in photo 
Gel-Cell's instead of Ni-Cad batteries (if not inclided) 
If you bought your Gs with Apple's Ni-Cac!'s aren't discharged periodically, 
memory card and later wished you had | they lose much of their capacity). | Order Your RamKeeper Today! 
| the Gs-RAM, no problem. RamKeeper will | RamKeeper has close to 6 times (about | See your dealer or call (214) 241-6060, 
support both cards plugged into Ram- 6 hours) the “total power failure” back- | 9:00-11:00 CST, 7 days a week, or send 


RamKeeper. 


Supports Up to Two IIGSs Memory 
Cards at the Same Time 


| Keeper simultaneously | up time of other systems. When power | check or money order to Applied 
| ' retums, RamKeeper automatically re- | Engineering. MasterCard, VISA and 
How it Works als a i 


| charges the battery to a full charge. With | COLD. welcome. Texas residents add 7% 
_ Just unplug your IGs memory card power from your wall oudet, RamKeeper | sdles tax. Add $10.00 if outside USA 
a will back-up your IIGS memory cards 


‘Tve purchased several 


tpplied Encicenne | | RAM indefinateh: fe : 
ee APPLIED ENGINEERING 


They're always well | RamKeeper Has and 


made and performed || Does It All! The Apple enbancement experts. 
as advertised. 1 | : 
| Me ecommend them | Allows instant access to your programs (214). 241-6060 
| whole-heartedly.” without slow’ disk delays 
a le Configure Kilobytes or Megabytes of P.O. Box 798, Carrollton, TX 75006 
| Steve Wozniak the creator ‘instant ROM storage for favorit 
of Apple Computer : ge your ta c | 
programs Prices subject to change without notice. 
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There are 17 control codes interpreted by DISPLAY.STRING, and 
room for adding 15 more. Most of these are single byte codes, 
but two are followed by parameter bytes. Here is a table of 
the codes: 


Ol -- Clear from cursor to end of line. 

02 -- Clear entire line cursor is on. 

03 ~- Home (go to 0,0 and clear window). 

04 -- Clear from cursor to end of window. 

O5xxyy -- Move cursor to column xx, row yy of window 

(HANG.UP if string ends with no xxyy). 

06 -- Move cursor left (HANG.UP if beyond window). 

07 -- Move cursor right (HANG.UP if beyond window). 

08 -- Move cursor up, scroll if already at top. 

09 -- Move cursor down, scroll if alread at bottom. 

OA -- Set inverse mode. 

OB -- Set normal mode. 

OC -- Store current cursor position as bottom-right 
corner of the window. 

OD -- Move cursor to beginning of current line. 

OE -- Store current cursor position as top-left 
corner of the window. 

OF -- Set up a full-screen window. 

10 -- Beep! (the AppleWorks low-tone bell). 

lixx -- Slide the screen sideways xx columns. 


If xx>0 slide to right; if xx<0, slide left. 


You can see that setting windows is fairly easy. Use code 
OSxxyy to position the cursor where you want the bottom-right 
corner of the new window to be, and then use code OC to store 
it; then use O5xxyy to position the cursor where you want the 
top-left corner of the new window to be, and then use code OE 
to make the new window. Since all O5xxyy moves are relative to 
the current window, you need to set the new bottom-right corner 
first. (You should now have a clue how AppleWorks nests the 
file folders on the screen.) 


Since AppleWorks does not use any of the Apple firmware, it is 
also not tied to the standard page-zero locations for window 
info and cursor position. DISPLAY.STRING uses $10 through $13 
to store the window definition. It is not the same as Apple's 
window definition bytes at $20-$23. Apple's firmware uses a 
starting column and a width, whereas AppleWorks uses a starting 
column and an ending column. The bytes are in a different 
order, too. See lines 1030-1130 for DISPLAY.STRINGs page 
zero-usage. The two bytes defined in lines 1120-1130, at SFO 
and SFl, are the ones AppleWorks uses. However, you could 
change those two lines to share $18 and $19 with the labels 
defined on lines 1090-1100, if you wish. 


Lines 1150-1320 define two macros, one for storing a byte on 
the screen and one for picking a byte off the screen. There is 
another macro definition in lines 4820-4840, for the function 
vector table. I decided to put these in asS macros to shorten 
the program listing so it would fit in this issue of AAL. It 
also makes the code in the left-right scroll Subroutine easier 
to follow. My code inside these macros is different from the 
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code in AppleWorks: it is shorter, and on the average one 
cycle SLOWER. I more than made up for the speed loss in other 
places, though. 


You will find the main body of DISPLAY.STRING in lines 
1390-1920. Lines 1470-1480 are curious. They cause the entire 
call to DISPLAY.STRING to be ignored if the contents of SA4 is 
non-zero. I don't know why or when AppleWorks would use this. 
Probably you will want to delete these two lines if you use a 
revision of DISPLAY.STRING in your own programs. In that case, 
you would want to substitute a LDA #0 instruction, so that line 
1490 would store a zero as the beginning position in the string 
to be displayed. Line 1500 calls the POLL.KEYBOARD subroutine, 
which as I mentioned above is just a dummy routine in this 
listing. You will probably want to delete this line too. 


By the time we get to line 1520, everything is set up. A 
pointer to the first character of the string is in $80,81; 
POSITION.IN.STRING holds the index relative to that pointer for 
the next character to be processed; INVERSE.FLAG is either 00 
or 80; and BYTES.IN.STRING is set to the string length. We 
come back to line 1520 for each character in the string, except 
for the parameter bytes on control codes 05 and ll. 


Lines 1520-1540 test to see if we have finished the string, and 
go to an RTS if so. Lines 1550-1670 pick up the next 
character, and decide how to process it according to the range: 
values 80-FF are treated as mouse text, even though we only 
expect 80-9F for these; values O00-1F are control (function) 
codes; and values 20-7F are regular ASCII characters. 


Mouse text characters are really put on the screen by using 
values from $40 to S$5F, so lines 1680-1700 do the honors. 


Regular ASCII characters are EORed with the INVERSE.FLAG in 
line 1600. If the result is negative, we have a "normal" 
Character; if positive, “inverse". Normal characters are ready 
now to display, but inverse take some care. The range 40-5F 
should print as letters rather than mouse text, so they are 
mapped down to OO-1F in lines 1620-1670. 


Control codes are handled in lines 1830-1920. This is not the 
Same way AppleWorks did it. AppleWorks used the trick of 
pushing the table address on the stack and doing an RTS to 
effectively JMP to the function code; then each function code 
processor finished by doing a JMP S14El (my line 1520, label 
-l). My code effectively does a JSR to the function code, so 
each processor can finish by doing an RTS. This savesS space, 
but is a tiny bit slower. However, I made up for the speed 
loss by eliminating one unnecessary range check. AppleWorks 
tested the function code range to be sure it was no larger than 
S$ll; if it was larger, AppleWorks jumped to HANG.UP. My code 
gives the same results, by merely extending the function code 
table in lines 4870-5190 to include all 32 vectors. The extra 
28 bytes of table are more than saved elsewhere. By making the 
function code processors into subroutines which end with an RTS 
I have made them accessible to JSR calls from anywhere. This 
could save even more space. 
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You can see that to add more functions you merely have to write 
the processing subroutines and enter the vectors in the 
function code table using the >VEC macro. I can think of 
several neat additions. For example, I might use code 00 to 
initialize full screen, home, normal mode all in one code. It 
might also be useful to add a code to draw a file folder in the 
current window. A single code could shrink the window one 
notch, clear it, and draw a folder. Another code could pop 
back out to the next larger window. Let your imagination and 
creativity loose! 


I wrote a little demonstration program, shown in lines 
6040-6270. This program steps through a list of strings. Each 
string starts with a length byte. When a length byte of 00 is 
found, the demonstration stops. I have listed the 
demonstration strings in raw form to save paper, in lines 
6290-6970. The demonstration is not too fancy, but it is fun. 
I display some characters, then move them around the screen in 
all four directions, with intermittent beeps to slow it down 
enough to see. Then I wipe it clean and display the entire 
Character set. 


Let me know how you like this series of articles, and what kind 
of uses you find for the code. If you come up with some really 
great new function codes for DISPLAY.STRING, send them in and 
we'll share them in future issues. 


ee SoAVE AW.SUBS.2 
10- SRS AW. LEFT -EQ $10 DEFINES CURRENT WINDOW 
11- 1040 AW.TOP -EQ $11 " 
12= 1050 AW. RIGHT -EQ $12 " 
13 1060 AW.BOTTOM .EQ 13 " 
14- Ache AW.CH -EQ $1 CURSOR HORIZONTAL 
15- 1080 AW.CV ~-EQ $15 CURSOR VERTICAL 
16- 1090 AW.BASE ~EQ $16,17 
18— ioe AW. BASE2 -EQ $18, 19 
FO- 1120 SHUFFLE.SOURCE -EQ $FO 
Fi- +p SHUFFLE . DEST -EQ $F1 
Wee -MA ST.SCRN 
1160 LSB into Carry 
ike TAY Index into Y-reg 
1180 PLA Get char again 
1190 BCS ;1 »--Qdd character, in Main RAM 
1200 STA $C055 ..-Even character, in Aux RAM 
1210 3:1 STA (AW.BASE) ,Y 
1555 ai CO54 
1580 Beemer nen men ne wn mem m ewe w nme ecee 
1250 -MA LD.SCRN 
1260 LSR LSB into Carry 
eke TAY Index into Y-reg 
1280 BCS :1 --.-Odd character, in Main RAM 
1290 STA $C055 -eeBven character, in Aux RAM 
1300 :1 LDA (AW.BASE), 
1310 STA 54 
1320 . EM 
1330 $e een ne nnn mmm mene nme n wn nne 
ohee a ES 1 ean chars inverse, 80=display 
= IN. - chars normal 
0802- 1360 POSITION.IN.STRING .BS 1 
0803- 1370 SCROLL.DIRECTION -BS 1 
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CESCECEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEESE 


SPECIAL !!! EXPANDED RAM/ROM BOARD: $39.00 
Similar to our $30 RAM/ROM dev board described below. Except this board has two sockets to hold your choice 
of 2-2K RAM, 2-2K ROM or even 2-4K ROM for a total of BK. Mix RAM and ROM too. Although Apple limits 
access to only 2K at a time, soft switches provide convenient socket selection. Hard switches control defaults. 


IMPROVED 11! Jf IN AMAC (ver 2.0): $75.00 
Now includes faster graphics, UniDisk support and more! Bi-directional data transfers are a snap! This Apple Il 
emulator runs DOS 3.3/PRODOS (including 6502 machine language routines) on a 512K MAC or MACPLUS. All 
Apple |i features are supported such as HI/LO-RES graphics, 40/80 column text, language card and joystick. 
Also included: clock, RAM disk, keyboard buffer, on-screen HELP, access to the desk accessories and support 
for 4 logical disk drives. Includes 2 MAC diskettes (with emulation, communications and utility software, plus 
DOS 3.3 and PRODOS system masters, including Applesoft and Integer BASIC) and 1 Apple II diskette. 


SCREEN.GEN: $35.00 
Develop HI-RES screens for the Apple Il on a Macintosh. Use MACPAINT (or any other application) on the MAC to 
create your Apple Il screen. Then use SCREEN.GEN to transfer directly from the MAC to an Apple II (with 
SuperSerial card ) or lic. Includes Apple Il diskette with transfer software plus fully commented SOURCE code. 


MIDI-MAGIC for Apple //c: $49.00 
Compatible with any MIDI equipped music keyboard, synthesizer, organ or piano. Package includes a MiDI-out 
cable (plugs directly into modem port - no modifications required!) and 6-song demo diskette. Large selection of 
digitized QRS player-piano music available for 19.00 per diskette (write for catalog). MIDI-MAGIC compatible 
with Apple Il family using Passport MID! card (or our own input/output card w/drum sync for only $99.00). 


FONT DOWNLOADER & EDITOR: $39.00 

Turn your printer into a custom typesetter. Downloaded characters remain active while printer is powered. 
Use with any Word Processor program capable of sending ESC and control codes to printer. Switch back and 
forth easily between standard and custom fonts. Special functions (like expanded, compressed etc.) supported. 
Includes HIRES screen editor to create custom fonts and special graphics symbols. For Apple Il, li+, //e. Specify 
printer: Apple Imagewriter Apple Dot Matrix, C.ltoh 8510A (Prowriter), Epson FX 80/85, or Okidata 92/192. 
* FONT LIBRARY DISKETTE #1: $19.00 contains lots of user-contributed fonts for all printers 
supported by the Font Downloader & Editor. Specify printer with order. 


DISASM 2.2e : $30.00 ($50.00 with SOURCE Code) 
Use this intelligent disassembier to investigate the inner workings of Apple Ii machine language programs. 
DISASM converts machine code into meaningful, symbolic source compatible with S-C, LISA, ToolKit and other 
assemblers. Handles data tables, displaced object code & even provides label substitution. Address-based triple 
cross reference generator included. DISASM is an invaluable machine language learning aid to both novice & 
expert alike. Don Lancaster says DISASM is “absolutely essential” in his ASSEMBLY COOKBOOK. 
The ‘PERFORMER’ CARD: $39.00 ($59.00 with SOURCE Code) 

Converts a ‘dumb’ parallel printer I/F card into a ‘smart’ one. Simple command menu. Features include 
perforation skip, auto page numbering with date & title. large HIRES graphics & text screen dumps. Specify 
printer: MX-80 with Graftrax-80, MX-100, MX-80/100 with Graftraxplus, NEC 8092A, C.jtoh 8510 
(Prowriter), OkiDate 82A/83A with Okigraph & OkiData 92/93. 

‘MIRROR’ ROM: $25.00 ($45.00 with SOURCE Code) 
Communications ROM plugs directly into Novation’s Apple-Cat Modem card. Basic modes: Dumb Terminal, 
Remote Console & Programmable Modem. Features include: selectable pulse or tone dialing. true dialtone 
detection, audible ring detect, ring-back, printer buffer, 80 col card & shift key mod support. 

RAM/ROM DEVELOPMENT BOARD: $30.00 
Plugs into any Apple slot. Holds one user-supplied 2Kx6 memory chip (6116 type RAM for program development 
or 2716 EPROM to keep your favorite routines on-line). Maps into $Cn00-CnFF and $C800-CFFF. 
C-PRINT For The APPLE //c: $69.00 


Connect standard parallel printers to an Apple //c serial port. Separate P/S included. Just plug in and print! 


Unless otherwise specified, all Apple Il diskettes are standard (not copy protected!) 3.3 DOS. 
Avoid a $3.00 handling charge by enclosing full payment with order. VISA/MC and COD phone orders OK. 


RAK-WARE 41 Ralph Road W. Orange NJ 07052 (201) 325-1885 
ECEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEESE 
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O804- 8D 01 08 


O80B- 8D 02 08 
O80E- 20 3A OA 


0811- AC 02 08 
0814- CC 01 08 


0819- EE 02 08 


0 08 


0 
O83A- 20 3B OA 
14 


0856= 20 5C 08 
0859- 4C 11 08 


O85E- BD FB 09 
0862- BD FA 09 


ad ed ond od 
Ww oO 


ee 20 5D OA 
T 


NM HOO WAH EWN = Ow 
eleloleloloylolojelojeloejelelola) 


END ce ce ec eek ee ek eh me me eee ee me eee ee ee eh ek me ek eh meth eh ee me ek eh ee eB a me ee ce ee ee ee ee ek me ce eh we ee we eed dk a wed nd ed et 
DOWD OO 6.009 09 6D 00 CD CO CD I) I 9 9 9 I DNAANDADARNANAMNANA NU Se SS SS See ew 


eolejlelolelolelelelelelojoelololojleleleloelelolelololelofeolololololololosoleolaloleleoleleleleleo) 


OO CAD EW 2 OW DAI DU Eu) A) = OW CO) OWN 2) (9) 4 OW 1] CVU 


# 
sd DISPLAY A STRING WITH FUNCTION CODES 
# A) = # BYTES IN STRING 
& 0,81) = Address of string 
& Au) = flag: if 00 display, else ignore. 
* at $14D1 in AppleWorks 1.3 
DISPLAY. STRING 
STA BYTES.IN.STRING 
LDA $A4 If non-zero, don't display anything 
BNE .99 ~».to an RTS 
STA POSITION .IN.STRING 
JSR POLL.KEYBOARD GET KEY IF ANY 


ol LDY POSITION .IN.STRING 
CPY BYTES.IN.STRING 


~»-to an RTS 
ION .IN.STRING 


9 
INC ett 
LDA 5 0),¥ GET CHAR FROM STRING 
BMI . .-- 80-FF, Mouse char for screen 
CMP #$20 
BCC ° --e O0-1F 
EOR INVERSE.FLAG 
BMI . ---Normal Char 
CMP #340 »»eiInverse char 
BCC . -..00-3F, inverse A-Z, 0-9, punctuation 
CMP #$60 
BCS . ..-60-7F, inverse a-z, punctuation 
AND #$BF map 40-5F into 00-1F, more A-Z 
BCC . -e always 
#~--Display a Mouse Char--------- 
-2 ae 3 .»-map into 40-5F, mouse char range 
oan ed har in A-register--- 
3 HA Save the character 


JSR BASE.CALC.CV 
LDA AW.CH Char position on line 


‘ >ST.SCRN Store character on screen 
LDX AW.CH 
CPX “9 End of line yet? 
BCS . -ee yes, Stick there, pile em' up 
INC AW.CH eeeNnoO, advance CH 
a‘ BNE .1 -.- always 
5 JSR .6 CALL THE FUNCTION 
‘ JMP .1 -« ALWAYS 
6 ae Convert code to index 
LDA FUNTBL+1,X 
PHA 
LDA FUNTBL ,X 
PHA 
499 RTS 
® FUN 1100 03 -- CLEAR ENTIRE WINDOW, CURSOR TO TOP-LEFT 
: at $154A in AppleWorks 1.3 
FUN. HOME 
LDA AW.LEFT 
STA AW.C 
LDA AW. 
STA AW.CV 


& FUNCTION O4 -- CLEAR REST OF WINDOW 
: at $1552 in AppleWorks 1.3 


FUN.CLR.CH.TO.EOS 
LDA AW.CH SAVE CH AND CV 


LDA AW.CV 
1 JSR CLR.CH.TO.EOL 
CV 


AW. 
P AW.BOTTOM 
BCS .2 «e+ THAT WAS THE BOTTOM LINE 


BCC .1 «+ ALWAYS 
2 PLA 
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For Those Who Want the Most. 
From Those Who Make the Best. GS-RAM* 


Now expand the IIGS’ RAM and ROM with up to8 MEG of “Instant On” memory with the all new GS-RAM! 


Gs-RAM™ 


GS-RAM has an all new design. A design that 
delivers higher performance including in- 
improved software. 
More Sophisticated, Yet 
Easier to Use 

GS-RAM works with all IIGs software. In fact 
any program that runs on Apple’s smaller 
memory card runs on the Gs-RAM. But with 
GS-RAM you can have more memory, im- 
proved performance, and almost unlimited 
expansion capabilities We've designed the 
new GS-RAM to be easier to use too—you 
don’t have to adjust the size of your RAM 
disk every time you use a DMA device. No 
other RAM card with more than 4 banks of 
memory installed can make the same daim. 


More than Just Hardware 

Each Gs-RAM and GS-RAM Plus indudes the 
most powerful set of IlGs software enhance- 
ments available anywhere. In fact, our nearest 
competitor offers only a fraction of the 
invaluable programs that we include with 
each Gs-RAM card. This software includes the 
the Gs-RAM Cache. The Cache will make most 
of your applications run up to 7 Ames faster. 
Also induded is a diagnostic utility that lets 
you test your GS-RAM by graphically showing 
the location of any bad or improperly 
installed RAM chips. And for AppleWorks 
users, we give you our exclusive Expander 
program that dramatically enhances both the 
capabilities and speed of AppleWorks. 
Making AppleWorks Even Better 

Applied Engineering’s Expander program 
eliminates AppleWorks intemal memory limits 
allowing it to recognize up to 8 megabytes of 
desktop workspace. You can increase the 
limits from only 7,250 lines to 22,600 lines in 
the word processor and from 6,350 records 
to 22,600 records in the database. The 
Expander allows all of AppleWorks, induding 
print functions, to automatically load into 
RAM. The clipboard size will increase from 
255 to 2,042 lines maximum. Gs-RAM will 
automatically segment larger files so you can 
save them onto multiple floppies. And 


Gs-RAM provides a built-in print buffer that 
allows you to continue working in Apple- 
Works while your printer is still processing 
text You can even load Pinpoint or Macro- 
Works and your favorite spelling checker into 
RAM for instant response. 
Grow by Kilobytes or Megabytes 
We offer Gs-RAM in two configurations so 
you can increase your memory 256K at a 
time (GS-RAM) or a megabyte at a ime 
(GS-RAM Plus). Both are IIGs compatible and 
both come with our powerful enhancement 
software. Gs-RAM can hold up to 1.5 MEG of 
256K chips and Gs-RAM Pius can hold up to 
6 MEG using 1 MEG chips. And since both 
use standard RAM chips (not high-priced 
SIMM'’s), you'll find expanding your Gs-RAM 
or GS-RAM Plus easy, convenient, and very 
economical For further expansion, you can 
plug a 2 MEG “piggyback” card into the Gs- 
RAM’s expansion port for up to 3.5 MEG of 
total capacity. Or up to a whopping 8 MEG 
on GS-RAM Plus. If a Gs-RAM owner outgrows 
3.5 MEG, he can easily upgrade to Gs-RAM 
Plus for a nominal charge. 


Permanent Storage for an 
“Instant On” Apple 

With our RamKeeper™ back-up option, 
your GS-RAM or GSRAM Plus will retain both 
programs and data while your Ilcs is tumed 
off Now when you tum your [Ics back on, 
your favorite software is on your screen in 
under 4 seconds! With RamKeeper you can 
divide your IIGs memory into part “electronic 
hard disk,” and part extended RAM. Even 
change the memory boundaries at any 
time—and in any way—you want Because 


“In quality, 
performance, 
compatibility, 
expandability and 
support, Applied 
Engineering's GRAM 
and GSRAM Plus are 
number one.” 


Steve Wozniak the creator 
of Apple Computer 


Applied Engineering has the most experience 

in the indusuy with battery-backed memory 

for the Apple, you are assured of the most 

reliable memory back-up system available. 

And in the word of battery-backed memory, 

Rekability is everything, Thats why Applied 

Engineering uses state-of-the-art “GEL-CELL's” 

instead of Ni-Cad batteries (if Ni-Cads aren't 

discharged periodically, they lose much of 

their capacity). RamKeeper has about 6 

hours of “total power failure” back-up time. 

That's 6 times the amount of other systems. 

But with power from your wall oudet, 

RamKeeper will back-up Gs-RAM, Gs-RAM 

Plus, or most other [Ics memory cards 

indefinitely. Should you ever have a “total 

power failure,” RamKeeper switches to its 

6-hour battery. When power retums, Ram- 

Keeper will automatically recharge the battery 

to full power. RamKeeper incorporates a 

duakrate charger, status LE.D.'s, and ad- 

vanced power reducing circuitry. RamKeeper 

comes complete with battery, software, and 

documentation. 

GS-RAM’s Got it ALL! 

e 5-year warranty — parts & labor 

e 6 RAM banks (most cards have 4) 

e Memory expansion port 

e ROM expansion port 

e Ultra-fast disk caching on ProDOS 8 AND 
ProDOS 16. 

e Expands AppleWorks intemal limits 

e Includes hi-res self test 

e No soldered-in RAM chips 

e Expandable to 8 MEG 

e No configuration blocks to set 

e RamKeeper back-up option allows 
permanent storage of programs & data 

e 15-day money-back guarantee 

e Proudly made in the USA 


GS-RAM with 256K 
Gs-RAM with 512K 
GS-RAM with 1 MEG 
GS-RAM with 1.5 MEG 


GS-RAM with 2.5 to 3.5 MEG 
GS-RAM Pius with 1-8 MEG 
RamKeeper Option 


Order today! 

See your dealer or call Applied Engineering 
today, 9 am. to 11 pm 7 days Or send 
check or money order to Applied Engineering. 
MasterCard, VISA and CO.D. welcome. 

Texas residents add 7% sales tax. Add $10.00 
outside USA 


H. APPLIED ENGINEERING” 


The Apple enhancement experts. 
(214) 241-6060 


P.O. Box 798, Carrollton, TX 75006 
Prices subject to change without notice. 


GSRAM, Gs-RAM Plus and RamKeeper are trademarks of Applied Engineering, Other brands and product names are registered wademaris of their respective holders. 
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A5 
O8B5- C5 
E6 
60 


Oo 
oc 


© 
co 


© 
Cc 


08 


08 
OA 


# FUNCTION 06 -- BACK UP CURSOR 


STA 
PLA 
STA 
RTS 


AW.CV 
AW.CH 


cs 1.3 


Y POSITION.IN.STRING 
($80 ) 


BYTES .IN. STRING 


FUN.HANG.UP 
wie Wich 


($80) .¥ 
Aw. TO 
AW.CV 


P 


POSITION .IN.STRING 


at $1593 in AppleWorks 1.3 


FUN. CORSE Rs eae 


RTS 


W.CH 

GMP AW. LEFT 

BEQ FUN.HANG.UP 
DEC AW.CH 


FUNCTION 05 -- GO TO X,Y IN THIS WINDOW 
Equivalent to HTAB x, 
O05 XX YY in strin 
at $1576 in AppleWor 


VTAB Y 


at $1599 and $1815 in AppleWorks 1.3 
FUN. HANG.UP JMP FUN.HANG.UP 


: FUNCTION O7 -- CURSOR RIGHT 


: at $15A1 in AppleWorks 1.3 


FUN. eon - RIGHT 


AW.CH 
CMP AW. RIGHT 
BEQ FUN.HANG.UP 
INC AW.CH 
RTS 


* FUNCTION 08 -- CURSOR UP (SCROLL DOWN IF NECESSARY) 


# at $15AB in AppleWorks 1.3 


AW.CV 
ae BOTTOM 
SCROLL 


AW.CV 
TO 


«+ ALWAYS 


«e+ ALREADY AT TOP, SCROLL DOWN 


# FUNCTION 09 -- CURSOR DOWN (SCROLL UP IF NECESSARY) 


: at $15BC in AppleWorks 1.3 


FUN. at DOWN 
A AW.CV 


1 
SCROLL 


1 


a - BOTTOM 


AW.CV 


AW. TOP 
#1 


«++ ALREADY AT BOTTOM, SCROLL UP 


SCROLL.DIRECTION 01 IF UP, FF IF DOWN 


AW.CV 


SAVE LINE NUMBER 
BASE.CALC.A 
AW. BASE 


AW.BASE2 
AW.BASE+1 
en eB RSE EY! 
GET LINE NUMBER AGAIN 
IS IT THE LAST LINE? 
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OBEA- FQ 2A 3020 BEQ FUN.CLR.LINE 
O8ED- 6D 03 08 3040 ADC SCROLL.DIRECTION 
O8FO- 48 3050 PHA SAVE SOURCE LINE NUMBER 
O8F1- 20 3D OA 3060 JSR BASE.CALC.A 
O8F4- A5 10 30 0 LDA AW.LEFT 
av 3090 ESR 
O8F8- A8 3190 TAY 
O8F9- BO OF 110 BCS .3 START WITH ODD COLUMN 
O8FB- 8D 59 CO 3120 .2 STA $CO55 —_—sxEVEN COLUMNS IN AUX MEM 
O8FE- Bi 1 3130 LDA (AW.BASE 
0900- 91 18 140 STA (AW.BASE23,Y 
0902- 8D 54 CO 3190 C054 BACK TO MAIN MEM 
0905- E4 12 160 CPX AW. RIGHT 
0907 - FO D6 3170 BEQ 1 ...END OF THIS LINE 
O90A- B1 16 4190 3 LDA (AW. .BASE),Y 
090C- 91 1 200 STA (AW BASED), Y 
O90E- E4 12 3210 CPX AW. RIGHT 
0910- FO CD 3220 BEQ .1 .».END OF THIS LINE 
6315. Be 3510 INY 
0914- DO E5 3250 ? BNE .2 ..« ALWAYS 

35 0 ® FUNCTION 02 -- CLEAR ENTIRE CURRENT LINE 

3280 ® at $1540 in AppleWorks 1.3 

9000 Waves os oo eee cee ceeeeeaces 

300 FUN.CLR.LINE 
0916- AS 10 10 LDA AW.LEFT 
0918- 85 14 3320 : STA AW.CH 

340 ® FUNCTION 01 -- CLEAR REST OF CURRENT LINE 

360 : at $1544 in AppleWorks 1.3 

0 FUN.CLR.CH.TO.EOL 
091A- 4C 5D OA 0 JMP CLR.CH.TO.EOL 
0 * FUNCTION OA -- INVERSE 

me : at $160B in AppleWorks 1.3 

3130 FUN. INVERSE 
091D- AQ 00 34.40 #$00 
O91F- 2C 3450 : -HS 2 SKIP OVER LDA #$80 

34 0 # FUNCTION OB -- NORMAL 

480 #® at $160F in AppleWorks 1.3 

BOO Westelse oo ceo oe scl ec cease 

500 FUN.NORMAL 
0920- AQ 80 510 LDA #$80 
0922- 8D 00 08 3520 STA INVERSE.FLAG 
0925~ 60 5 0 : RTS 

550 @ FUNCTION OC -- DEFINE BOTTOM RIGHT CORNER 

2 : sd 17 in AppleWorks 1.3 

3580 FUN.CORNER.BR 
0926- A5 14 33 0 LDA AW.CH 
0928- Ad 15 600 LDX AW.CV 

3610 SET.CORNER.BR 
O92A- 85 12 3620 STA AW. RIGHT 
092C~- 86 13 3530 STX AW.BOTTOM 
092E- 60 0 RTS 


0 Sceceees oe ent eeuecoceeeeeeseceoe] 

#680 « FUNCTION OD -- CURSOR TO BEGINNING OF LINE 
# Eausveten: to RETURN without LINEFEED 

3680 : at $1622 in AppleWorks 1.3 


3690: #@aseae oe cecsasce a enncn nena aeenaee 
3700 FUN. te BOL 
- A5 10 710 A AW.LEFT 
0931- 85 14 720 STA ° 
- 60 3730 RTS 


740 #-------------------------------- 
750 & FUNCTION OE -- DEFINE TOP LEFT CORNER 
: : at $1629 in AppleWorks 1.3 
31 bo FUN.CORNER.TL 

0 LDA AW.C 


0934- A? 14 iF CH 
0936- A6 15 00 LDX AW.CV 
0938- 85 10 810 STA AW.LEFT 
093A- 86 11 3820 STX AW. TOP 
093C- 60 830 RTS 
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840 &---------- - ee ee eee 
3350 # FUNCTION OF -- SET FULL SCREEN WINDOW 
3870 . at $1634 in AppleWorks 1.3 
BAS FUN.FULL. SCREEN 
093D- AQ 00 3890 LDA #0 
093F- 85 11 3900 STA AW.TOP 
0941- 85 10 3330 STA AW.LEFT 
0943- AO AF 920 LDA #79 
0945= A2 17 3330 LDX #23 
O947=- DO El 3850 ‘ BNE SET.CORNER.BR ~-- ALWAYS 
960 # FUNCTION 10 -—- "BEEP!* 
3370 : at $1645 in AppleWorks 1.3 
3390 FUN .BEEP 
at AO 32 00 LDY a2 
09 4B- AQ 5 4010 .1 LDA #14 
O94ND- 3 4020 .2 
O9NE- EQ 01 4030 SBC #1 
0950- 3 4O40 SEC 
0951- 38 4050 SEC 
0952=- DO FI 4060 BNE ,.2 117#149-1 = UF CYCLES IN INNER LOOP 
neeT Ap 30 CO ie 5 nee $c030 TOGGLE SPEAKE 
0958=- DO F1 4090 BNE .1 1649 CYCLES BETWEEN CLICKS 
095A- tte 01 4100 LDA #1 DELAY ABOUT 1/10 SECOND 
095C- 9B OA Rae JMP DELAY. TENTHS 
nee # FUNCTION 11 -- SHUFFLE SCREEN LEFT OR RIGHT 
4140 & Eoliowte byte is scroll distance and direction: 
nize # ositive, SCROLL RIGHT; else SCROLL LEFT. 
HE : # at $16 E in AppleWorks 1.3 
1180 FUN. SHUFFLE 
O95F=- AC 02 08 4190 LDY ise0hLe oh STRING 
0962- Bi 80 4200 LDA stee pekoon SCROLL RIGHT; else SCROLL LEFT 
0964- 8D 03 08 4210 STA S ihe DIREC 
0967- EE 02 08 4220 INC POSITION .IN.STRING 
O96A—- A5 11 4230 LDA AW.TOP POINT TO TOP LINE FIRST 
096C- 4 HOUuO .1 PHA 
096D- 20 3D OA 4250 JSR BASE.CALC.A 
0970- A5 12 4260 LDA AW.RIGHT 
0972=- 2C 03 08 4270 BIT SCROLL.DIRECTION 
0975- 10 0 4280 BP 2 
0977T- A5 10 4290 LDA AW.LEFT 
0979—- 85 F1 4300 .2 STA SHUFFLE.DEST 
097B- 3 4310 SEC 
097C- ED 03 08 4320 SBC SCROLL.DIRECTION 
O97F- 85 FO 1330 STA SHUFFLE.SOURCE 
0981- 20 BF 09 4340 JSR SCROLL.LEFT.OR. RIGHT 
0984- 68 4350 PLA 
0985- C5 1 4360 CMP AW.BOTTOM 
0987=- FO 0 4370 BEQ .3 
0989- 18 43380 CLC 
O98A- 69 01 4390 ADC #1 
098C- DO DE 4400 BNE .1 
YN20 &~--------- ee ee ee ee 
Hine SCROLL.LEFT.OR. RIGHT 
O98F- AD 03 08 4440 LDA SCROLL.DIRECTION 
0992- 10 3 4450 BPL .6 .- shuffle right 
tab @-2<Saroll Leftssore-ssss-s--5cc5 
0996- E6 F1 Hy 1 INC SHUFFLE.DEST 
0998- E6 FO 4490 INC SHUFFLE. seni 
099A- Ag AO 4500 .2 LDA #* lank, in case off edge 
099C- A4 FO 4510 LDY SHUFFLE. SCuRCE 
O99E- C4 12 4520 CPY AW.RIGHT 
O9A0~- 90 02 noes BCC .3 
O9A2= DO OD 4540 BNE .4 -..off the edge use a blank 
O9AN- 98 H2p0 3 TYA Get source po nter 
09A5— 4560 >LD. SCRN Get character from screen 
O9Bi- 48 4570 .4 PHA Save the character 
O9B2=- A5 F1 4580 LDA SHUFFLE.DEST destination pointer 
O9B4- 1289 >ST.SCRN Store the character on the screen 
O9C1— A5 F1 4600 LDA SHUFFLE.DEST destination inter 
09C3- C5 12 4610 CMP AW.RIGHT was it the right edge? 
09C5- DO CF 4620 BNE .1 -+.no, keep shuffling 
09C7—- 60 46 30 RTS 
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4640 #---Scroll Right ----------------- 


- 4650 . DEC SHUFFLE.DEST 
aacie ce oe EO Weeo 2 DEC SHUFFLE. ce 
09CC- ‘A AO 4670 .6 LDA #* ank, in case off edge 
O9CE- A rf FO 4e80 LDY SHUFFLE. SOURCE 
O9D0- 30 11 4690 BMI .7 er .- Off edge, use blank 
oebie ct OD 449 Bcc AW. LE .. Off edge, use blank 
O9D6—- 98 4720 TYA Get source pointer 
O9D7T—- 4730 >LD. SCRN Get character from screen 
O9E3—- 48 4480 7 PHA Save the character 
O9E4- A5 F1 4750 LDA SHUFFLE.DEST destination pointer 
O9E6- We0 >ST.SCRN Store the character on the screen 
oaees ae F1 4770 LDA SHUFFLE.DEST destination pointer 
O9F5=- C5 10 41 BO CMP AW.LEFT was it the left edge? 
O9FT= pO CF 1580 BNE .5 -».no, keep shuffling 
a8 0 nee - BE ce xen nate ipod aceas tena 
4820 MA 
4830 -DA FUN. J1-1 
1880 . 2 ee SC 
4860 ® at $1779 in AppleWorks 1.3 
18 bo FUNT BL eC HANG.UP 00 
SOFC. 4890 >VEC CLR.CH.TO.EOQL 01 
O9FE- 4900 >VEC CLR.LINE 02 
OA00- 4910 >VEC HOME 3 
OA02- 4920 >»VEC CLR.CH.TO.EOS 0 
OAOH- 4930 »VEC GOTO.XY 05 
OA06— 4940 >VEC CURSOR.LEFT 06 
OA08- 4950 >VEC CURSOR. RIGHT Of 
OAOA- Ne20 >VEC CURSOR.UP 0 
OA0OC- 4970 >VEC CURSOR.DOWN 09 
OAOE- 4980 >VEC INVERSE OA 
OA10— 4 20 >VEC NORMAL OB 
OA12—= 50 0 >VEC CORNER.BR 0c 
OA14— 5010 >VEC CURSOR.BOL OD 
OA16—- 5020 >VEC CORNER.TL OE 
OA18-— 5030 >VEC FULL.SCREEN OF 
OA1A= 5040 >VEC BEEP 10 
OA1C= 5050 >VEC SHUFFLE 11 
OAIE- 5060 >VEC HANG.UP 12 
OA20- 5070 >VEC HANG.UP iF 
OA22~- 5080 >VEC HANG.UP 1 
OA24~ 5090 >VEC HANG.UP 15 
0A26- 5100 >VEC HANG.UP 16 
OA28- 5110 >VEC HANG.UP Hs 
OA2A=- 5120 >VEC HANG.UP 1 
OA2C- ars >VEC HANG.UP 19 
OA2ZE- 5140 >VEC HANG.UP 1A 
0A30—- 2125 >VEC HANG.UP 1B 
OA32- 5160 >VEC HANG.UP 1C 
OA34- at >VEC H j 1D 
OA30—- 5180 >VEC HANG.UP 1E 
vei a : >VEC HANG.UP 1F 
200 Bammer e wwe ewe wwe www ww woe owoo one 
OA3A- 60 E10 POLL .KEYBOARD RTS (at $1FA7 in AppleWorks 1.3) 
5230 # Calculate Address of Screen Line 
5240 *® at $1717 in AppleWorks 1.3 
5250 Sqn n-ne nnn en nnn ee ewe n-ne 
et semaaea nit gi CV 
OA3B- A5 15 ‘ 
OA3D- C9 FF 2500 BASE «CAP OSPF <<<filled in with current line number>>> 
OA3E- 5300 CURR.LINE .EQ #-1 
oh D 3E 0 530 Bk CORR.LINE 
OAKS WA om 5330 LSR_. OOOOABCD--E 
OA45- 29 03 5340 AND # 08 000000CD--E 
OANT- 0 5 ORA #30 000001CD--E 
OAN9- ge 17 5 26 STA AW.BASE+1 
OANB- AD 3E OA 5370 LDA CURR.LINE 
OANE- 29 18 Bh ae #$18 eee 
OAD oe if re 2306 ADC ire EQOABOOO 
OA54- 3 410 .1 STA AW.BASE 
OA56— OA 420 ASL 00 BO 888 
OA5T—=- OA 430 ASL OABO 
DAebe 05 16 Zuko ORA AW.BASE EABABOOO 
OAS5SA- 85 16 5450 STA AW.BASE 
OA5C- 60 5460 .2 RTS 
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Three times faster 


Introducing 
PC Transporter.” 
The Apple® II expansion 
board that lets you 
run MS®-DOS programs. 
Now your Apple II can run 
over 10,000 programs you could 
never use before. Like Lotus® 
1-2-3® MultiMate® dBASE III 
PLUS® Even Flight Simulator® 
With PC Transporter, MS-DOS 
programs run on your Apple II 
like they do on IBM® PC's or 
compatibles. With one important 
difference. PC Transporter runs 
most of those programs three 
times faster than an IBM PC/XT® 
Plus, to speed through number- 
crunching tasks, you can use 
our optional 8087-2 math co- 
processor chip. It plugs into a 
socket on the PC Transporter. 
Less expensive than an 
IBM clone. 
Sure, a stripped-down IBM 


clone costs about the same as 
the PC Transporter. But the pe- 
ripherals it takes to get the clone 
up and running make the clone 
cost about three times what our 
American-made card costs. 

You don’t have to buy new 
hardware to use PC Transporter. 

Works with the hardware you 
already own. 

With PC Transporter, MS-DOS 
programs see your Apple hard- 
ware as IBM hardware. You 
can use the same hardware you 
have now. 

With IBM software, your Apple 
hardware works just like IBM 
hardware. Including your drives, 
monitors, printers, printer cards, 
clock cards and serial clocks. 


Mh All 

ligt! 
Hi 

A anil 


od 


aks IBM. 
than IBM. 


You can use your Ie® or IIGs™ 
keyboard with IBM software. Or 
use Our optional IBM-style key- 
board (required for the II Plus). 

You can use your Apple mouse. 
Or an IBM compatible serial 
mouse. 

Plenty of power. 

PC Transporter gives you as 
much as 640K of user RAM 
and 128K of system RAM in the 
IBM mode. 

PC Transporter also is an Apple 
expansion card, adding up to 
768K of extra RAM in the Apple 
mode. The Apple expansion alone 
is a $300 value. 

Easy to install. 

You can install PC Transporter 
in about 15 minutes, even if 
you've never added an expansion 
board. You don’t need special 
tools. Simply plug it into an Apple 
expansion slot (1 through 7 ex- 
cept 3), connect a few cables and 
a disk drive, and go! 
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PC Transporter taps into the world’s largest 
software library. Now your Apple can 

run most of the IBM software you tse 

at work, And tt opens a new world of 
communications programs, games and 
bulletin boards. 


A universal disk drive 
controller. 

PC Transporter supports 3.5” 
and 5.25” MS-DOS and ProDOS 
formatted diskettes. You'll shift in- 
stantly between Apple ProDOS 
and IBM MS-DOS. 

You'll need our versatile 5.25” 
360K drive system to run IBM 
applications from 5.25” floppy 
disks. Use your Apple 5.25” drive. 
for Apple 5.25” disks. 

An Apple Disk 3.5 Drive will 
upport the new 3.5"disks 
whether they’re IBM MS-DOS 
formatted or Apple ProDOS for- 
matted. The PC Transporter acts 
like an Apple Disk 3.5 Drive disk 
controller for IIGs, Ile, and II 
Plus users. 

PC Transporter supports 
up to 5 drives in a number of 
combinations. 

For example, you can connect 
a 5.25 Applied Engineering 360K 
dual-drive system directly to the 
card. Then plug two daisy-chained 
Apple 3.5 Drives (not the Apple 
UniDisk 3.5) to the dual-drive 
system. For a fifth drive, use a 
ProDOS file as an IBM hard disk. 


PC Transporter controls Apple and IBM 
compatible disk drives. It supports 3.5" and 
5.25" MS-DOS and ProDOS formatted 
diskettes. 


Versatile data storage. 

PC Transporter reads MS-DOS 
and translates it into Apple native 
ProDOS. You can store IBM pro- 
grams and data on any ProDOS 
storage device including the 
Apple 3.5 Drive, Apple UniDisk ™ 
3.5, Apple 5.25” drive, SCSI or 
ProDOS compatible hard drives. 
(You can use the Apple UniDisk 
3.5 with its own controller card 
for storing programs and data, but 
not for directly booting an IBM 
formatted disk. ) 

You can even use our 360K PC 
compatible drive for ProDOS 


Make your Apple speak IBM. 


PC Transporter memory choices. 


RAM in RAM in 
Apple mode: IBM mode: Price: 
384K 256K $489.00 
512K 384K 529.00 
640K 512K 569.00 
768K 640K 609.00 
Note: The IBM mode is 128K less because 
the PC Transporter uses 128K for system 
memory. 


lics Installation Kit 


He/lI Plus 
Installation Kit 39.00 


PC Transporter Accessories 


5.25” IBM Format 360K 
Drive Systems 
Single-Drive System 
Dual-Drive System 399.00 
Half-Height Drive 135.00 
(add to Single-Drive system to make 
Dual-Drive ) 
IBM-Style Keyboard 139.00 
(required for Apple IE Plus. Requires 
IBM Keyboard Cable. ) 
IBM Keyboard Cable 34.00 
Sony RGB Monitor 499.00 
Analog RGB Cable 39.00 
39.00 


49.00 


269.00 


(for use with Sony monitor ) 


Digital RGB Cable 


(for use with Sony monitor ) 
Digital RGB Adapter 
ColorSwitch 
(included with Ics Installation Kit) 
128K ZIP 40.00 
PC Transporter per set 
Memory Expansion 
Chip Set 
8087-2 Math 
Co-processor 
Chip 
Heavy Duty 
Power Supply 
(Ile and If Plus only ) 


229.00 


69.00 


See your dealer or call or send 
check or money order to Applied 
Engineering. MasterCard, VISA and 
COD welcome. Texas residents 
add 6'4% sales tax. 


PC Transporter produces better IBM graphics 
than IBM. Analog is sharper than digital 
So with an analog RGB monitor PC 
Transporters CGA graphics and text are 
superior to IBM digital display — even 
while running IBM software! 

And, you can also use an Apple composite 
monitor in IBM text or graphics mode. 


storage and a 143K Apple 5.25” 
drive for MS-DOS storage. 

Created by Apple's original 

designers. 

The brains behind PC Trans- 
porter were also behind your 
Apple II. 

The PC Transporter design 
team includes the former project 
managers for the creation of the 
Apple Ie and IIc. The co-designer 
of the Apple II disk controller. 
And the first full-time Apple 
programmer and author of the 
ProDOS operating system. 

So you know the PC Trans- 
porter and your Apple were made 
for each other. 

Support and service from the 
leader in Apple add-ons. 

Applied Engineering sells more 
Apple peripheral boards than any- 
one else — including Apple 
Computer. So you know we'll be 
around after the sale. 

PC Transporter comes with a 
15-day money back guarantee. If 
you're not fully satisfied after 
using it, return it for a full refund. 
PC Transporter also comes with a 
l-year warranty. 

How to get your PC 
Transporter today. 

See your dealer. Or call Applied 
Engineering any day between 
9 a.m. and 11 pm. CST at 
214-241-6060. 


Fras wa Applied Engineering 
The Apple enbancement experts. 


PO. Box 798, Carrollton, TX 75006 
214-241-6060 


A Division of AE Research Corporation. 


Apple HE Plus must be FCC Certified IBM and PO XT are registered trademarks of Intemational Business Machines Lotus and 1204 are registered trademarks of Lotus Development Corporation Muli Mate and dBASE HE PLUS are re stered 
trademarks of Ashton Tate, Ing MS and Flight Simulator are registered trademarks of Microsoft Apple He and ProDOs arc restored: trademarks and HGS and Cai are trademarks of Apple Computer 
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5 
5480 #* Blank Line from Cursor to End of Line 
aes : at $173A in AppleWorks 1.3 


5500 
5510 CLR. CH.TO.EOL 


OA5D=- A5 12 5520 LDA AW.RIGHT 
OA5F- 4A 5530 LSR 
OA60- 8D 99 OA 55 STA N.OVER.2 
OA63- 2A 2270 ROL GET AW.RIGHT AGAIN 
OA64- 38 5560 SEC 
OA65- EQ 01 5570 SBC #1 
OA67—- 4A 5580 LSR 
OA68- 8D 9A OA 2280 STA N.MINUS.1.OVER.2 
OA6B- 20 3B OA 5600 JSR BASE.CALC.CV 
OA6E- A5 5610 LDA AW.CH 
OA7T0— 4 epee LSR 
OATI-“- 4 26 30 P 
5640 #---Clear Even Columns----------- 
OA7T2— A8 50 TA 
OAT3- AQ AO 5660 LDA #" " 
OA75=- 8D 55 CO 2670 STA $C055 INTO AUX MEM 
OA7T8—- 90 01 5680 BCC .2 
OATA- C8 5690 .1 INY 
OATB= CC 33 OA 5700 .2 CPY N.OVER.2 
OA7E- FO 02 5710 BEQ . 
OA80- BO 0? 5720 BCS 
OA82= 91 1 5730 .3 STA (AW.BASE), Y 
OA8H- AC 7A OA 5740 JMP . 
OA87- 8D 54% CO 5750 .4 STA $C054 BACK TO MAIN MEM 
5760 #---Clear Odd Columns------------ 
OA8A- 68 AG PLA 
OASB- A8 5780 TAY 
OA8C- AQ AO 5790 LDA #* " 
OA8E- 91 16 5800 .5 STA (AW.BASE),Y 
OA90- C8 5810 INY 
OA91= CC 9A OA 5820 CPY N.MINUS.1.OVER.2 
OAQ4- 90 FB 5830 BCC .5 
OA96- FO F6 5840 BEQ . 
OA98- 60 5850 RTS 
5860 #---n- enw ww nn en ene ee nee ee 
0OA99- 2870 N.OVER.2 -BS 1 
OAQA]- 2p30 8 N.MINUS.1.OVER.2 -BS 1 
5900 , DELAY ABOUT (A) TENTHS OF A SECOND 
ae : at $1FD1 in AppleWorks 1.3 
28 O DELAY.TENTHS 
OAQB- A8 59 4 
OASC- A2 64 5950 .1 LDX #100 ~« ABOUT 100 MILLISECONDS 
OAJE- 18 5960 .2 CLC 
OASF- 69 01 5970 .3 ADC #1 
OAA1= 90 FC 5 BCC .3 --e LOOP IS 256#5 CYCLES 
OAA3— CA 2 30 DEX 
OAAK- DO F8 0 BNE .2 (5#256+6)#100 = 128600 CYCLES 
OAA6—- 88 6010 DEY 
OAAT7T= DO F3 6020 BNE .1 128606#A CYCLES 
OAA9- 60 6030 RTS 
6040 #&-.----------- - -  --  eeeee ee 
6050 * Some Demonstrations 
6060. Sssecoeteeuscececeeceoccceesucees 
6070 T 
OAAA- AQ CE 6080 LDA #MY.STRINGS 
OAAC~- A2 OA 6090 LDX /MY.STRINGS 
OAAE- 85 80 6100 .1 STA $80 
OABO- 86 81 6110 STX $81 
OAB2=- AO 00 6120 LDY #0 
OABH- Bi 80 6130 LDA ($80),Y 
OAB6— FO 15 6140 BEQ .99 e+ FINISHED 
OAB8- 48 6150 PHA SAVE LENGTH 
OAB9- E6 80 6160 INC $80 
OABB- DO 02 2110 BNE .2 
OABD—- £6 81 6180 INC $81 
OABF- 20 O04 08 6190 .2 JSR DISPLAY. STRING 
OAC2=- 18 6200 CLC 
OAC3- 68 6210 PLA GET LENGTH 
OACH—- 6 6220 ADC $30 ADD TO POINTER 
OAC6— Ab 81 0230 LDX 1 
OAC8- 90 6240 BC 
OACA- E8 6250 INX 
OACB- BO E1 peep BCS .1 «+ ALWAYS 
OACD- 60 270 .99 RTS 
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MINUTE’ MAN™ 


UNINTERRUPTIBLE POWER SUPPLIES 


PROTECTION FROM: 


BROWNOUTS 
BLACKOUTS 
OVER VOLTAGE 
SPIKES 

SURGES 

EMI/RFI 


+ + + tH H 


e Sine Wave Output | msec 
maximum switching time* 

e Order - ship same day 

e Full one year warranty 


* 250 Watt and 500 Watt units offer 4 msec switching time; PWM waveform, 


250 WATT | 300 WATT | 500 WATT | 600 WATT | 1200 WATT 
(120V) (120V) (120V) (120V) (120V) 


$359 | 549° | $699° | 5899 | $1499 


Suggested Retail Suggested Retail Suggested Retail Suggested Retail Suggested Retail 
U.L. Approved 


230 V Units Also Available 


Carrollton, Texas 75007 (214) 446-7363 


1455 LeMay Drive PARA SYSTEMS, INC. Telephone: 


We are dealers for MinuteMan UPS 


250w for $320, 300w for $490 ae esti el 


DALLAS, TX 75228 
Buy it from us and save! Phone 214-324-2050 
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Overhauling the S-C Program Selector......Bob Sander-Cederlof 


About a year and a half ago, in the July 1986 issue of Apple 
Assembly Line, I published my replacement for the ProDOS "QUIT" 
code. It turned out to be a very popular article and program, 
and various updates and corrections were printed in the August, 
September, October, and December issues that same year. 


In review, the QUIT code is a 768-byte program inside ProDOS-8 
which is executed when you leave a system program, such as 
FILER, AppleWorks, BASIC.SYSTEM (Applesoft), Copy II Plus, the 
S-C Macro Assembler, and so on. When you QUIT you are really 
executing the MLI Quit call ($65), which copies those 768 bytes 
down to RAM starting at $1000 and jumps there. Apple's 
built-in QUIT code is about as user-friendly as an angry 
porcupine: if you haven't MEMORIZED the volume names and file 
names of all your system programs, you almost always end up 
resetting and re-booting instead of filling in the blanks. 


My 1986 Program Selector exactly fits in the 768-byte space 
Apple's version occupies in the ProDOS system file. It puts a 
menu of online volumes on the screen, allowing you to select 
one with the arrow keys and RETURN. Once you select a volume, 
you see a menu of the SYS and DIR files in the main directory 
of that volume. Using the arrows and RETURN you can either 
start up a SYS program or select a subdirectory. If you choose 
a subdirectory, you get a menu of SYS and DIR files inside it. 
Hitting ESCAPE always takes you back to the Volume Menu. As I 
wrote the Program Selector, it requires an Apple //e, //c, or 
//gs, and works in 80-columns. 


The modifications already published include fixing one bug, 
making it work with a Videx-compatible 80-column card for Apple 
II Plus owners, following Apple's published spec's for 
substitute QUIT-code, and making it begin with the menu bar on 
something other than the first volume in the menu. 


Quite a few readers of AAL are now using this Program Selector. 
Some have gone the extra mile by adapting the S-C Program 
Selector to their own preferences. Jim Hammond (of FastFind 
SUPER INDEX) liked it so well he turned it into a product which 
he sells (with my permission) as "STARTER/QUITTER". Larry 
Skutchan (a blind user who adapted the S-C Word Processor into 
a talking version) adapted it to work with the Echo Speech 
Synthesizer. Brooke Boering (creator of CeeMac and Fire Organ) 
put in a feature allowing you to limit the Volume Menu to a 
particular disk drive. Brooke's ideas are what led me to try 
to improve and upgrade my program. 


The main computer here at the office is an Apple //e with a 
10-meg Sider (ProDOS sees it as two drives in slot 7), two 
Standard Apple floppies in slot 6, a RamFactor card in slot 4 
(simulates one drive), a l-meg RamWorks card in the AuxSlot 
(Simulates a drive in slot 3, Drive 2), and a 3.5 inch drive in 
Slot 2 (ProDOS thinks there are two drives there, even though I 
only have one). When I type BYE or in some other way select 
the ProDOS QUIT code, my S-C Program Selector takes over. The 
Old version seemed to go away and die for several seconds while 
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ProDOS did a complete ONLINE check to find out what volume if 
any was mounted in each and every drive. If my hard disk is 
not turned on, that takes several seconds for the firmware to 
timeout. If no floppies are in the 5.25 drives, they go 
through spinning, re-calibration, and the works before giving 


up. 


It finally dawned on me that what I wanted was to direct the 
Program Selector to only try the slot and drive I booted from. 
Most likely if I booted from it, there is some kind of volume 
there. Of course I still wanted the capability of seeing every 
volume, but I did not want to waste all that time EVERY time! 


Brooke told me six months or more ago that I could plug a drive 
ID into my ONLINE call (line 2760 of the original program) and 
it would limit the display to that one volume. It turned out 
to be a little harder than that, but I did get that to work. 
But I could not decide on just one slot and drive. I wanted 
that byte to be set up by ProDOS at boot-time to point to the 
booting drive. 


I remembered that the ProDOS startup code began by plugging the 
boot drive ID into its own ONLINE call, which it uses to get 
the Volume Name. I looked up the code in the Supplement to 
"Beneath Apple ProDOS", and found it. In ProDOS 1.1.1 it is 
done by the first two instructions at $2000; in ProDOS 1.2, 
1.3, and 1.4 it starts six bytes later at $2006. The first 
instruction is “LDA $43", which picks up the drive ID (slot 
number times 16) that was used to load the PRODOS or P8 file. 
The second one is "STA S$21FE"“ for ProDOS 1.1.1, and “STA" 
somewhere else for later versions. I decided I could patch 
into that "STA" instruction a call to a piece of patch code 
which would not only do the patched-over STA for Apple, but 
also an additional one for me. More on this later, when we get 
into the code for my new Program Selector. 


Anyway, the Program Selector now comes up only showing the 
Volume Name of the volume currently in the drive ProDOS was 
booted from. If that is the volume I want, I just hit RETURN 
and see the menu of SYS and DIR files on that volume. If I 
booted from RamFactor, this all happens at blinding speed. 


If the boot-drive is not the drive I want, I can type a digit 
and select a different drive or all drives. Typing a digit 1 
through 7 changes to drive 1 of that slot and displays the 
Volume Name in that drive. Typing the digit "8" changes to 
drive 2 in the same slot. Why 8? Why not? It made the code 
shorter, and it worked. Typing “0" changes back to the old 
way, making a menu of all online volumes. If you select a 
drive which has no volume mounted, you will get an empty menu. 
No problem, just select a different drive or all-drives, and 
continue. 


I also made various other improvements here and there, such as 
making sure that text mode with a full-screen window is 
selected. I had to revise the “help" message at the bottom of 
the menu display to include information on the digits 0-8. 
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A major constraint in adding new features was that I wanted to 
retain the advantage of fitting inside the 768-byte hole in the 
ProDOS file. In developing the new version I decided not to 
worry about size too much until all the new features were 
working. I tested them by BRUNning the code at $1000, instead 
of going through the process of putting it into ProDOS every 
time. Then when it was all ready, I started looking for ways 
to shrink the code and make it fit in only 768 bytes. 


It ran about 32 bytes over, so I needed a lot of Shrinking. 
For some reason I don't remember, back in 1986 I decided to 
keep a lot of variables out of page zero. There is no 
requirement to do this, so I moved these variables and saved 
almost all the bytes I wanted. All instructions referencing 
these variables shrank from three to two bytes. The rest of 
the savings were found by careful study of the code. If you 
compare the new listing which follows with the one I published 
in 1986 you can find the tricks I pulled. The new version, 
even with all the new features, is now shorter than the 
Original! There are actually four unused bytes! 


I also wrote a program to automatically install the new Program 
Selector inside the ProDOS file. Well, almost automatically. 
You still have to BLOAD PRODOS or BLOAD P8, and UNLOCK the file 
if it is LOCKed. Then you “-" or BRUN my INSTALL.QUITTER 
program, and it automatically does the installation. If 
successful, you get a nice message to that effect; then you 
have to BSAVE the image and re-LOCK it. I thought it would be 
too dangerous to make all of the above entirely automatic. If 
my installer made a mistake.... So, I left the crucial part 
manual. 


The auto-installer does differentiate between ProDOS 1.1.1 and 
the later versions. It makes the boot-drive patch at either 
$2002 or $2008, depending on where it finds the STA 
instruction. And if it cannot find that instruction, it tells 
you so and quits. The Program Selector image is copied either 
to $5700 (for ProDOS 1.1.1) or $5900 (for later versions). 


The code for the auto-installer is executed when you BRUN 
INSTALL.QUITTER. Lines 1460-2270 are the installation code, 
and lines 2280 to the end are the Program Selector image. 

Lines 1490-1710 try to determine which version of ProDOS, if 
any, 18 in memory starting at $2000. If it finds a 
recognizable version, it sets up various pointers according to 
the version. If not, it prints out the long message from lines 
2160-2220. 


Lines 1720-1800 copy a JSR to my patch code over the top of the 
STA xxxx instruction which starts at either $2002 or $2008. It 
also modifies my patch code to include exactly the correct STA 
XXXX instruction which we are patching over. The patch code is 
at the very end of the Program Selector image, in lines 
5970-6020. Later, when this patched ProDOS file is booted or 
otherwise executed, my patch code will install the boot drive 
ID into the ONLINE call block at line 5880. 
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Lines 1810-1950 copy the tegen Selector image into the ProDOS 
image, at either $5700 or $5900 depending on version. Assuming 


we got this far, lines 1970-1990 will print out the 
"SUCCESSFUL" message. 


ree ®SAVE NEW.QUIT.CODE 
1020 : Installation: 
et # 1. BLOAD PRODOS,TSYS : 2000 
1040 # 2. BRUN INSTALL.QUITTE 
Moe : 3. BSAVE PRODOS,TSYS, A$2000 
1052 MA ASS Macro to shorten listing 
ae ae 
NOG Bical coe ee oe te 
Ape . DUMMY 
1080 -OR 0000 

0000- 1090 BPNTR -BS 2 

0002- 1100 SPNTR ~BS 2 

0004- 1110 DPNTR -BS 2 

0006- 1120 DIR.INDEX .BS 1 

0007- Vie DIR.START .BS 1 

0008- 1140 MAX.DIRPNT .BS 1 

0009- 1150 SEL.LINE -BS 1 

OOO0A- 1160 MAX.LINE BS 1 

OO0B- ae UNIT -BS 1 

000C- 1180 LENGTH -BS 1 

0OOD- 1190 CURTYP BS 1 

OO0E- Le CURBLK -BS 1 
1220 -OR $800 

0800- Mie OPNBUF ~BS 1024 

0Cc00- 1240 DIRBUF -BS 512 
1250 ED 


Enter Holt: 

Basic-like macros which make the complex simple. Don't re-write that 
multiplication routine for the hundredth timel Get EnterSoft instead! Do 
8/16/32/64 bit Math/Input-Output/Graphics simply without all of the 
hassles. These routines are a must for the serious programmer who 
doesn't want to spend all of his/her time trying to re-invent the wheel. 
DOS 3.3 Version=$30.00, ProDos Version=$30.00, BOTH for only $50.00. 

GET YOURS TODAY. 


& Shape Table Program: 


For once! A shape table program which is logically organizied into its 
componet parts. Each section resides in its own program. The editor, 
disk access, Hi-Res section; each section is separate. Written almost 
entirely in Basic, it is easily modified. Not copyprotected! Put them ona 
Hard Disk, Ram Drive, anywhere! DOS 3.3 Version=$20.00, ProDos 

Mul cues 00, BOTH for $30.00! 


Send Check or Money Order To: . ProDos Upgrade for DOS 3.3 
} EnterSoft Owners = $20.00 
Mark Manning 
c/o Simulacron |/Baggy Game 
P.O. Box 58598 


Webster, TX 77598 $ Thanks for the letters - 
> Keep Writing! 
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Apple Assembly 


1270 PATHNAME .EQ iene 
1280 BUFFER EQ $2000 
1290 ENTLEN -EQ he ENTRY LENGTH 
1300 NTCNT EQ BUFFER+$2 # ENTRIES PER BLOCK 
1320 C EQ $25 
1 39 INVFLG .EQ $32 
19 Weecnedccaecuccekseweceoecadesuos 
1390 INIT EQ $FB2F 
1360 HOME -EQ $FC58 
1370 CLREQL EQ $FC9C 
1380 COUT -EQ $FDED 
1390 CROUT -EQ $FD8E 
1400 SETINV -EQ $FE80 
me IN -EQ $FE84 
1430 MLI -EQ $BFO0 
1" 9 BITMAP -EQ $BF58 
1420 -OR $1000 
nee TF INSTALL.QUITTER 
1490 INSTALL.QUITTER 
A2 57 1500 LDX /$5700 WHERE IMAGE IS IN 1.1.1 
AQ 20 1510 LDA /$2000 WHERE LDA $43 IS IN 1.1.1 
Ao 00 «taa6 PDY #0 
84 O4 12ho STY DPNTR 
AD 00 20 1390 LDA $2000 SEE IF PRODOS IMAGE IS HERE 
C9 4C 1560 CMP #$4C IF "JMP" THEN PROBABLY 1.4 
DO O4 170 BNE .1 ..» PROBABLY 1.1.1 
AO 06 1580 LDY #6 WHERE LDA $43 IS IN 1.4 
A2 59 1590 LDX /$5900 WHERE IMAGE IS IN 1.4 
4 00 1600 .1 STY BPNTR POINT AT LDA $43 
6 05 16 10 STX DPNTR+1 POINT AT IMAGE OF QUITTER 
ee 
E EC 1 1680 STX QPATCH+2 ADDRESS IN IMAGE OF "ONLINE+1* 
8E FO 1 19 0 STX JSR.QPATCH+2 ADDRESS IN IMAGE OF QPATCH 
AO 02. ~——~.1660 LDY #2...ii‘“‘i«‘éi‘“#‘#th... 
B9 EB 10 1670 .2 LDA PRODOS.ID. STRING, Y 
D1 00 16 0 CMP (BPNTR),Y 
bo 34 1098 _ .99 ..- NEITHER, QUIT. 
10 F6 1710 BPL .2 
1720 *---Trust we have ProDOS image--- 
AO 02 1 39 L 2 POINT AT STA XXXX 
B1 00 1 03 LDA (BPNTR),Y 
99 EB 13 1750 STA PATCH et ¥ 
EC 10 1760 LDA JSR.QPATCH-2,Y 
a 00 ui 2 He (BPNTR ),Y 
$0 Fi (1800 she * 
1810 *---Copy Quitter into ProDOS----- 
AQ F1 1820 DA #QUIT. IMAGE 
85 02 1830 STA SPNTR 
AQ 10 1840 LDA /QUIT.IMAGE 
85 03 1850 STA SPNTR+1 
Neos ave pr gg, OaPy 3 Paces 
B1 02 1880 4 LDA {Spur my 
91 04 1890 STA (DPNTR),Y 
oo ro isa 
E 03 1820 INC SPNTR+1 
E6 0 1 30 INC DPNTR+1 
CA 1940 DEX 
DO F2 1390 BNE .4 
1960 #---Successful, say so and end--- 
AO 00 1970 LDY #1Q.GO0O 
20 68 10 1980 JSR IQ. PRINT 
60 1990 RTS FINISHED 
2000 *---No ProDOS, or already patched--- 
AO 2 2010 .99 + LDY #10.B 
20 68 10 2020 JSR IQ. PRINT 
60 2030 RTS 
2040 #----~-------------~------+------- 
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1064- 20 ED FD 2050 
1067- C8 2060 
2070 
1068- B9 6E 10 2080 
106B- DO F7 2090 
106D- 2100 
2110 
106E- 2120 
00- 2130 
106E- 2140 
1093- 8D 00 Seo 
2T- 2160 
1095- 2170 
10AC- 8D 2180 
10AD- 2190 
10C9- 8D 2200 
10CA- 2210 
10E9- 8D 00 2220 
a 
2240 
10EB- A5 43 8D 2250 
2260 
10EE- 20 F9 12 2270 
2280 
2290 
2300 
231 
2320 
1000- D8 2 
1001- AD 82 CO 2340 
1004— 20 2F FB 2350 
1007- 20 84 FE 2360 
100A- A2 16 2370 
100C- AQ 00 2390 
100E- 9D 58 BF 2390 
1011=- SE 6F BF 2400 
1014- CA 2410 
1015=- DO F7 2420 
1017- AQ CF ah 
1019- 8D 58 BF 2440 
2450 
101C= AQ 99 2460 
101E= 20 00 C3 ah 
1021- AO QO 24 
anaes 20 68 12 2490 
1026=- 20 DB 10 2500 
Le Aa AO 00 2510 
102B- 84 08 2520 
102D=- 84 07 2530 
102F- 8C 80 02 2540 
1032- 8C 10 20 2550 
1035= 20 00 BF 2560 
1038- C5 EO 12 2570 
103B- 84 09 2580 
103D=- 20 32 11 5280 
1040- AO 11 2600 
1042- 20 68 12 2610 
1045- 20 9D 11 2620 
1048- 90 F1 26 30 
104A- DO DO 2640 
2650 
104C- 20 A5 10 2660 
104F- BO 51 2670 
2680 
1051- 20 58 FC 2690 
1054- AO 00 2700 
1056- BO 81 02 2710 
1059- 09 80 2720 
105B- 20 ED FD 2730 
105E- C8 2740 
Vee. CC 80 02 2750 
1062= 90 Fe 2760 
2770 
1064- A2 00 2780 
1066- AQ FF 2790 
1068- 20 E2 10 2800 
106B- AQ OF 2810 
106D- 20 E2 10 2820 
1070- 8A 2830 
1071- FO AQ 2840 
ieee AQ 00 2850 
1075- 9D 00 OD 2860 
1078- 86 08 2870 
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IQ. OUT 
IQ. PRIN 


IQ 
IQ. GOOD 


IQ. BAD 


PRODOS. 
JSR.QPA 


JSR COUT 

INY 

T 

LDA 1Q,Y 

BNE IQ.OUT 

RTS 

.EQ # 

.HS 

ASC, MEITHER PRODOS NOT HERE," 

ASC "OR NOT VERSION 1.1.1 OR 1.4," 

SASC "OR ALREADY INSTALLED QUIT CODE.* 
S$ 8D00 


ID. STRING 

~HS A5.43.8D 
TCH 
JSR QPATCH.EP 


QUIT. IMAGE 


0 
QUITTER 
CLD 


#..-PRI 


) 


#---COL 


-PH $1000 


REQUIRED BY "STANDARDS" 
LDA $C082 MOTHERBOARD ROMS 


JSR INIT TEXT MODE, FULL SCREEN WINDOW 


LDA # PREPARE VIRGIN BITMAP 
STA BITMAP 


X 
STX BITMAP+$17 LAST TIME STORES $01, LOCK OUT $BFO0O PAGE 


1 
LDA #$CF 


STA BITMAP 

#---LIST VOLUME NAMES------------ 
LDA #$99 CTRL-Y 

JSR $6300, SET I/O HOOKS, 80-COL MODE, CLEAR SCREEN 


MSG 
JSR CLOSE.ALL.FILES 


Y #0 
STY MAX.DIRPNT 
STY DIR.START 
STY PATHNAME 


STY EEEnele (IN CASE "ONLINE" PRESET TO SPECIFIC S/D) 


ML 
.DA #$C5 ONL INE 
STY SEL. LINE 
JSR DISPLAY.VOLUMES 
Q. VHELP 
MSG 
JSR GET. KEY 
3 .. ARROW KEYS 
.. ESCAPE KEY 


BNE .2 
#{--READ DIRECTORY --------------- 


R READ. THE.FILE 
BCS .7 
NT PATHNAME --enene-n--- == 
JSR HOME 
LDY #0 
LDA P RENAME yyy 
ORA #$80 
JSR COUT 
INY 
BEC PATHNAME 
LECT FILENAMES ------------ 
LDX #0 


LDA #$FF FIRST JUST "SYS" FILES 


JSR SCAN .DIRECTORY 
LDA #$0F THEN JUST "DIR" FILES 
ah SCAN .DIRECTORY 


A SEE IF ANY FILES FOUND 
BEQ .2 -.~eNO. BACK TO THE TOP 
LDA #0 MARK END OF LIST 


STA DIRBUF+256 ,X 
STX MAX.DIRPNT 
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fry, etal INSTALLED NEW QUIT CODE." 


2880 #---LIST THE FILENAMES----------- 
TAY Y=0 


107A=- A8 2890 

107B- 84 07 2900 STY DIR.START 

107D= 84 09 2910 .6 STY SEL.LINE 

La 20 01 12 2920 JSR DISPLAY.FILES 

1082= AO 11 2930 LDY Anya VHELP 

1084- 20 68 12 2940 JSR M 

1087- 20 9D 11 2950 JSR GBT. KEY 

108C- DO 8E 2970 BNE .2 ~«e ESCAPE KEY 

108E- AO 10 29 LDY #$10 

1090- Bi 02 2990 LDA (SPNTR),Y GET FILE TYPE 

1092- 10 B8 3000 BPL .4 DIRECTORY ($0F) 
010 #---SYS FILE, LOAD & EXECUTE----- 

1094- 20 00 BF 3020 JSR MLI SET PREFIX 

1097- C6 F2 12 35 0 DA #56, 

109A- 20 A5 10 3040 JSR READ. THE.FILE 

109D- BO 0 3050 BCS .7 ~»e ERROR IN READING 

109F- 4C 00 20 3060 JMP BUFFER 

10A2= 4C 00 10 30b0 a! JMP QUITTER 


090 READ.THE.FILE 
LDY 


10A5- AO 00 100 #0 APPEND CURRENTLY SELECTED NAME 
10A7- B1 02 110 LDA (SPNTR),Y GET LENGTH OF NAME 
1OABe 82 0G 3490 STA LENGTH 
10AD- AE 80 02 3180 LDX PATHNAME CURRENT LENGTH 
10B0- AQ 2F 190 LDA #'/! 
ie: ee 
10B4- 9D 80 02 3 iho STA PATHNAME, yi 
10B7- B1 02 3190 LDA (SENTR) 
i oe ety BEE Lahr 
10BD- 8E 80 02 3220 STX PATHNAME 
10CO0- 20 00 BF 3230 JSR MLI OPEN THE FILE 
ie: GB HS Te ig BA Byer 
1ocB- AD E9 12 32 0 LDA 0. REF FILE REFERENCE NUMBER 
10CE- 20 00 BE 3280 JSR ML MLI READ THE WHOLE FILE 
10D4- 90 05 300 BCC GLOSe ALL. FILES 
19D6- ¢ AC 0 CMP #$4C IS IT JUST EOF? 
10D9- DO 06 0 BNE RF.ERR ..eNO 
0 CLOSE. ALL. FILES 
10DB- 20 00 BF 3350 JSR CLOSE THE FILE 
10DE- CC DE 12 3360 DA ¥8CC, CLOSE 
10E1- 60 3 0 8 RF.ERR RTS 
33 0 SCAN.DIRECTORY 
10E2- 85 OD 0 TYPE WE ARE COLLECTING 
10E4¥- AQ 00 410 LDA #0 START WITH FIRST BLOCK 
10E6- 85 OF 420 .1 STA CURBLK 
1088~ Ag ou 3430 LDA #BURFER+H FIRST 4 BYTES OF BLOCK SKIPPED 
10EC- 1 3490 CLC COMPUTE PAGE OF PNTR 
10ED- A9 20 460 LDA /BUFFER+4 
10EF- 65 OE 3470 ADC CURBLK 
13: 63 98 oo atest BEATE 
10F6- 85 0C 560 : STA LENGTH 
10F8- AO 00 520 .2 LDY #0 
iSeko 55 25 BGR ABR Ray 
10FE- FO 17 5 90 BEQ .4 ..»DELETED FILE 
1100- C9 EO 560 CMP #$E0 .. HEADER? 
He BH BBS tig OE 
11082 es Ob 3860 caecum ee 
110A- DO OB 3240 BNE h .» NOT CURRENT TYPE 
3620 #---DIR or SYS file-------------- 
110C- A5 O04 3630 3 LDA DPNTR 
Hitiz Ab Oso” e660 PDA DPNTRGL 
- + 
1113- 9D 00 OD 3660 STA DIRBUF+256 ,X 
1116- E8 3670 INX 
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680 #---ADVANCE TO NEXT ENTRY-------- 
Hiy- 18 690 | CLC 
1118= A5 O04 760 LDA DPNTR 
111A=- 6D 23 20 pio ADC ENTLEN 
111D- 85 0 20 STA DPNTR 
111F- 90 02 730 BCC .5 
1121- E6 05 3740 INC DPNTR+1 
1123 C6 OC 3130 25 DEC LENGTH AT END OF BLOCK YET? 
1125= DO D1 760 BNE .2 .--NO, CONTINUE IN BLOCK 
Wey- 18 3170 CLC 
1128=- A5 OE 3780 LDA CURBLK 
112A=- 69 02 [30 ADC #2 
112C- CD F1 12 3800 CMP ACTLEN+1 
112F- 90 B5 810 BCC .1 .»- YES, READ NEXT BLOCK 
1131- 60 pee RTS 
3836 DISPLAY. VOLUMES 
he 20 43 12 3850 JSR SETUP.DISPLAY.LOOP 
1135= AQ 2 3860 LDA /BUFFER 
1137- 85 01 3870 STA BPNTR+1 
11 Q- AQ 00 880 LDA #BUFFER 
113B- 85 00 890 .1 STA BPNTR 
113D- AO 00 900 LDY #0 
11 3F- B1 00 10 LDA (BPNTR),Y 
1143- 29 OF 30 AND #$0F 
1145= FO 2A 33 0 BEQ . .»~NO VOLUME HERE 
1147- 20 51 12 3360 : JSR CHECK.FOR.SEL.LINE 
114A- B1 00 380 LDA (BPNTR),Y GET UNIT NUMBER 
114C- 4A $290 LSR ISOLATE SLOT NUMBER 
114D- 4A 000 LSR 
114E- 4A 4010 LSR 
114F- 4A 4020 LSR 
1150- 29 07 4030 AND #7 
1152=- 09 BO oho ORA #"0" 
1154- 20 ED FD 4050 JSR COUT PRINT SLOT NUMBER 
1157- AQ AF 4060 LDA #"/* 
1159= 20 ED FD HO70 JSR COUT 
115C- Bi 00 40 LDA (BPNTR),Y GET UNIT NUMBER AGAIN 
115E- OA 4090 ASL SET CARRY IF DRIVE 2 
115F- AQ B1 4100 LDA #718 ASSUME DRIVE 1 
1191- 69 00 4110 ADC #0 CHANGE TO 2 IF TRUE 
11 o- 20 ED FD 4120 JSR COUT 
1166- AQ AO 4130 LDA #" & PRINT TWO SPACES 
1168~ 20 ED FD 4140 JSR COUT 
116B- 20 ED FD 4190 JSR COUT 
116E- 20 79 11 o : JSR PRINT.BPNTR.NAME 
1171- 18 4180 3 CLC POINT TO NEXT VOLUME NAME 
1172= A5 00 4190 LDA BPNTR 
1174- 69 10 4200 ADC #16 
Vite. 0 C3 4210 BCC .1 STILL IN SAME PAGE 
1178- 60 4220 .5 RTS 
1230 www www ene nn ne ene nee eee ee 
42HO PRINT.BPNTR. NAME 
1179= AO 00 4250 LDY #0 
117B- B1 00 4260 LDA (BPNTR),Y GET NAME LENGTH 
117D=- 29 OF 4270 AND #$0F 
VTE AA 4280 TAX 
1180- C8 4290 .1 INY PRINT THE VOLUME OR FILE NAME 
1181- B1 00 4300 LDA (BPNTR) ,Y 
1183- 09 80 4310 ORA #$80 
1183- 20 ED FD 4320 JSR COUT 
1188- CA 1330 DEX 
1189- DO F5 3 : - BNE .1 
118B- AQ AO 3 0.2 LDA #" " PRINT TRAILING BLANKS 
118D- 20 ED FD 4370 JSR COUT 
1190- C8 4380 INY 
1191- CO 10 1320 CPY #16 
1193- 90 F6 400 BCC .2 
1193- 20 84 FE 4410 JSR SETNORM NORMAL MODE NOW 
1198- E6 OA 4420 INC MAX.LINE COUNT THE LINE 
119A- 4C 8E FD 130 - JMP CROUT 
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4450 GET.KEY 
yy L 


119D- AY 09 60 DY SEL.LINE CURRENT BRIGHT LINE 
119F- AD 00 CO 4u7o : LDA $C000 READ KEY FROM KEYBOARD 
11A2- 10 FB. 44 BPL .1 
11A4~ 8D 10 CO 4490 STA $CO10 CLEAR THE STROBE 
11A7- C9 BO 4500 CMP #$B0 CHECK FOR "0"..."7" 
1149- 90 OF 4510 BCC .12 
11AB- C9 BB =—s-_-445520 CMP #$B8 
11AD- FO 25 4530 BEQ .25 
11AF- BO EE 4540 BCS .1 
11B1- OA 4560 ASL 
11B2- OA 4560 ASL 
11B3- OA 4570 ASL 
11B4- OA 4580 ASL LEAVE SLOT#16 IN A, CARRY SET 
11BB- 8D E1 12 4590 11 STA ONLINE+1 CHANGE ONLINE CALL 
11BB- A9 9B 4600 LDA #$9B SIMULATE AN <ESCAPE> 
11BA- C9 8D 4610 .12 CMP #$8D 
11BC- FO 15 4620 BEQ . <RETURN> 
11BE- C9 88 46 30 CMP #$88 as 
11C0- FO 19 4640 BEQ . 
11C2= C9 95 4650 CMP #$95 ans 
11C4- FO 26 4660 BEQ . 
11¢6- CQ 8A 4670 CMP #$8A DOWN ARROW 
11C8- FO 22 4680 BEQ . 
11CA- C9 8B —s_- 469 CMP #$8B UP ARROW 
11CC- FO OD 4700 BEQ . 
11CE- C9 9B =—s- 44710 CMP #$9B ESCAPE 
11D0- DO CD 4720 BNE . GET ANOTHER CHARACTER 
11D2- OA 4730 ASL .eeSET .NE. and CARRY 
11D3- 60 470 .2 RTS 
11Dh- AD £1 12 4750 .25  ~—LDA ONLINE + 1 
11D7- 09 80 4760 ORA #$80 TRY DRIVE 2 
11D9- DO DA 4770 BNE .11 «ALWAYS 
4780 #---<UP OR LEFT ARROW>----------- 
11DB- 18 4790 . CLC 
11DC- 88 4800 DEY IS CURRENT BRIGHT LINE TOP LINE? 
11DD- 10 21 4810 BPL .8 ..sNOT TOP LINE 
11DF- AY 07 4820 LDY DIR.START ARE WE DISPLAYING THE FIRST ONE? 
11E3- C6 07 4840 DEC DIR.START ...NO, MOVE TOWARD FIRST LINE 
11E5- AO 00 4850 .4 LDY #0 MAKE FIRST LINE BRIGHT 
11E7~ 60 4860 RTS 
11E8- AY OA 4870 5 LDY MAX. LINE MAKE LAST LINE BRIGHT 
11EA- 88 48 DEY 
11EB- 60 4890 RTS 
4900 #---<DOWN OR RIGHT ARROW>-------- 
11EC- C8 4910 ; INY MOVE TOWARD LAST LINE 
11ED- C4 OA 4920 CPY MAX.LINE BEYOND END OF SCREEN? 
11F1- A5 08 49U0 LDA MAX.DIRPNT ...YES, CHECK IF SHOWING LAST LINE 
11F3- E9 11 4950 SBC #17 
11F7- C5 07 4970 CMP DIR.START 
11FB- E6 07 4990 INC DIR.START ...NO, MOVE TOWARD LAST LINE 
11FD- A4 09 5000 LDY SEL.LINE 
11FF- 18 5010 CLC 
1200- 60 3020 .8 RTS 
5040 DISPLAY.FILES 
1201- 20 43 12 5050 JSR SETUP. DISPLAY. LOOP 
1204- A5 0 5060 LDA DIR.START 
1206- 85 0 5070 STA DIR. INDEX 
1208- 20 37 12 5080 JSR CLEAR. LINE.OR.PRINT.MORE.MSG 
120B- A6 06 5100 .1 LDX DIR. INDEX 
120D- BC 00 OD 5110 LDY DIRBUF+256 ,X 
1210- FO 21 5120 BEQ .4 ..eEND OF LIST 
1212- 84 01 5130 STY BPNTR+1 
1214- BD 00 0C 5140 LDA DIRBUF, X 
1217 - 85 00 5190 STA BPNTR 
1219- 20 51 12 51 0 JSR CHECK.FOR.SEL.LINE 
121C- AO 10 21b0 2 LDY #$10 
121E- B1 00 5190 LDA (BPNTR),Y 
1220- 30 03 5200 BMI . ... SYS FILE 
1222— AO 5C 5210 LDY #Q.DIR 
1224— 2C 22 -HS 2C 
1225- AO 54 5230 .3 LDY #Q.SYS 
1227- 20 68 12 52h0 JSR MSG 
122A- 20 79 11 5250 JSR PRINT.BPNTR. NAME 
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~ £6 06 5270 INC DIR.INDEX 
= $0 95 3233p NCTE 
- A5 06 5300 .4 LDA DIR. INDEX 
- C5 08 $320 ‘ CMP MAX.DIRPNT 
5 Re CLEAR .LINE.OR.PRINT.MORE.MSG 
- FO 04 5340 BEQ . CLEAR LINE 
- AO 64 5 28 LDY #Q.MORE 
- DO 2B 5360 BNE MSG ~-e ALWAYS 
- 20 9C FC 5 fo .1 JSR CLREOL 
- 4C BE FD Zt . JMP CROUT 
2RO0 SETUP.DISPLAY.LOOP 
43=- AQ 10 5410 LDA #16 MAX 16 LINES IN LIST 
We ko GO| BRSO rpY #0 
hg- 84 OA 2 ako STY MAX. LINE 
B= C8 5450 INY SAME AS VTAB 3, HTAB 1 
C= BY 25 5460 STY CV 
HE- 4C 8E FD 2h ‘ JMP CROUT 
5490 CHECK.FOR.SEL.LINE 
- A5 OA 5500 LDA MAX.LINE SEE IF CURRENT LINE SHOULD 
- C5 09 5510 CMP SEL.LINE BE INVERSE MODE 
- DO OC 5520 BNE .1 --NO 
- A5 00 Zen, LDA BPNTR ~»e- YES, SO SETUP POINTER 
- 85 02 5540 STA SPNTR 
- A5 01 2275 LDA BPNTR+1 
- 85 0 55600 STA SPNTR+1 
- AQ 3 221° LDA #$3F & SET INVERSE MODE 
- 85 32 55380 STA INVFLG 
- 60 2280 a | RTS 
- a ED eet. MSG1 ane COUT 
- BJ 6E 12 5630 MSG LDA QTS,Y 
- DO F7 5640 BNE MSG} 
- 60 art RTS 
- 5670 QTS EQ # 
- 2630 >ASC "S/D Volume Name" 
- 00 5700 ~HS 00 
5710 Q.VHELP .EQ *-QTS 
F- 8D 5720 -HS 8D 
0- 5730 >ASC "Select with ARROWS and <RETURN>®" 
9F- 8D 5740 -HS 8D 
A0- 5750 >ASC "See Volumes with <ESCAPE> or 0-8" 
CO- 8D 00 5760 -HS 8DOO 
5770 Q.SYS .EQ #-QTS 
C2- 5780 >ASC "SYS -- * 
C9=- 00 5790 ~HS 00 
CA- 5810 D>ASC "DIR -- * 
2D1= 00 5820 -HS 00 
5830 Q.MORE .EQ #-QTS 
12D2- 5840 >ASC "<<<MORED>>" 
12DC- 8D 00 2890 P -HS 8DOO 
Ll as ae om 5870 CLOSE .DA #1,#0 
12E3- 20 5880 ONLINE .DA #2,#0,BUFFER 


12E4- 03 80 02 
12E7=- 00 08 5890 OPEN DA goers NBTE ORNEUE 


12E9- 5900 O.REF .BS 
12EA- 04 5910 READ .DA #4 
12EB- 5920 R.REF .BS 1 
12EC- 00 20 00 
12EF- 9F 2870 -DA BUFFER, $9F00 
5940 ACTLEN .BS 2 
12F2- 01 80 02 2e28 PATH .DA #1,PATHNAME 
12F5- 5970 ~BS $1300—-#-7 
5980 QPATCH.EP 
13EA- 8D E1 12 6000 QPATCH STA ONLINE+1 
13 6010 STA # 
6020 RTS 
6030 §-------~.---~--------~---------- 


Special Version of S-C Macro for Huge Symbol Tables 


Sometimes there just is not enough memory to hold the entire symbol table of a 
large assembly, especially in the ProDOS version of the S-C Macro Assembler. 
In that version, the symbol table normally begins at $1000 and grows upward, 
while the source program snugs up against $7400, hanging downward from there. 
Even with the use of the .INB directive to bring in segments of the source 
code one disk block at a time, extra-large programs can run out of memory 
during assembly. It can be especially frustrating in an Apple //e or later 
machine, when you know there is a lot of free memory just across the 
Soft-Switch River, over there in Aux-land. 


Until now I have resisted using this memory, trying to remain fully compatible 
with older 64K machines and trying to keep the speed advantages of 
all-main-memory. But finally, the need became personal enough. I created a 
special version which puts the entire symbol table in Aux RAM. It will run on 
a 128K or larger //e, //c, or IIgs; I haven't tried it, but it should also run 
in an Apple II Plus with an Applied Engineering Transwarp card plugged and 
turned on. The symbol table still begins at $1000, but in AuxRAM; and it can 
rise as high as $BFFF without challenge. That is $B000 total bytes, or about 
twice as many as were available between $1000 and the bottom of the source 
program in MainRAM. The space below $1000, down as far as $800, is occupied 
by macro private labels, if you use any. Obviously, there is also now more 
room in Main RAM for your source code and/or object code. A Minus: if you 
have a /RAM disk installed in AuxRAM, the symbol table walks all over it. 
However, if you are using a RamWorks card or the like, with their PRODRIVE 
software, bank 0 of AuxRAM is left available for just these type uses. 


If you need something like this, it's finally here. I'm calling it Version 
2.1, and as a registered owner of the ProDOS version of the S-C Macro 
Assembler you can have a copy for only $10. 


——ee 
/_  ——— a eae —— 


“ PROGRAMMER _ = 


Applied Engineering is seeking an experienced 6502 and 65816 machine language 
programmer. 2 years minimum programming experience is required. We offer an see 
exciting opportunity for the experienced programmer to take his skills to the limit. 

Applied Engineering offers an exceHent compensation package including paid 

--=- vacations, 11 paid holidays per year, health insurance program and more. 


it bint 


“== Applied Engineering's location in the suburbs of north Dallas offers a “buyer's nae 
market” for housing, as well as excellent schools, shopping and entertainment. 
Successful applicant should have heavy machine language experience on the Apple 
He and TGs as well as familiarity with AppleWorks. We're the best at what we do, if 
vou are too, please send vour resume to: 
Applied Engineering 
P.O. Box 5100 
Carrollton, TX 75011 AP Ree tee 


a Attn: Personnel oo " 


WANTE 
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"IIgs Toolbox Reference" Now Available 


At long last, Addison-Wesley assures me they have printed the "IIgs Toolbox 
Reference" manuals, Volumes 1 and 2. These are probably indispensable tools 
for any serious IIgs programmers. Until now, you could only get them in beta 
versions through APDA. They are over 750 pages each, and cost $26.95 each 
($24 plus shipping charge if you order from us). Each of the standard tools 
is described in great detail, with examples in both assembly language and C. 


If they kept the same arrangement as my pre-beta copy (dated Nov 1986), there 
are a total of 23 chapters in the set. In my edition, Volume 1 covers 
toolsets in general, Desktop Bus, Control Mngr, Desk Mngr, Dialog Mngr, Event 
Mngr, Font Mngr, Intger Math, Line Edit, Memory Mngr, Menu Mngr, Misc.Tools, 
and Print Mngr; Volume 2 covers Quickdraw, SANE, Scheduler, Scrap Mngr, Sound 
Mngr, Std. File Operations, Text.tools, Tool Locater, and Window Manager. 
Volume 2 also includes an appendix on writing your own tool set. 


There remains one more book in the IIgs series, the "IIgs Programmer's 
Introduction". A-W is now predicting April '88 for the publishing date, and a 
price of $32.95. I guess I am old-fashioned, but to my mind this book should 
have been published FIRST, and included FREE with every IIgs purchase. Oh, 
well.... We will accept orders on this one now, and hold them until the book 
comes, at a price of $30 plus shipping (see note on page 3 for details on 
shipping charges). 


DON LANCASTER STUFF 


reserved. 


INTRODUCTION 
TO POSTSCRIPT 


A 65 min user group VHS 
video with Don Lancaster 
sharjng many of his laser 
publishing and Postscript 
programming secrets. 


Includes curve tracing, $5 
toner refilling, the full Kroy 
Kolor details, page layouts, 
plus bunches more. 


$39.50 


FREE VOICE HELPLINE 


Box 809-SC 


ASK 
THE GURU 


An entire set of reprints to 
Don Lancaster's ASK THE 
GURU columns, all the 


way back to column one. 


Edited and updated. 


Both Apple and desktop 
publishing resources are 
included that are not to be 
found elsewhere. 


$24.50 


APPLE llc/lle 
ABSOLUTE 
RESET 


Now gain absolute control 
over your Apple! You stop 
any program at any time. 


Eliminates all dropouts on 
your HIRES screen dumps. 
Gets rid of all hole blast- 
ing. For any lic or ile. 


$19.50 


SYNERGETICS 
Thatcher, AZ 85552 


Texas 75228. 


POSTSCRIPT 
SHOW & TELL 


Unique graphics and text 
routines the others don't 
even dream of. For most 
any Postscript printer. 


Fully open, unlocked, and 
easily adaptable to your 
own needs. Available for 
Apple, PC, Mac, ST, many 
others. 


$39.50 


VISA/MC 


(602) 428-4073 
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